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Preface 


This book is written to provide you with some sensible programs for your 
Timex 1000 or Sinclair ZX81. Many programs for serious use of the Timex 
1000 are given in the book. They include, Banking Records, Credit Cards, 
and Data Files. For fun there are Chapters on Games for 1K, Games for 16K 
and Casino Gambling. 

This book was originally published in England in two volumes: WHAT 
CAN | DO WITH THE 1K and WHAT CAN | DO WITH THE 16K. These two 
volumes correspond to Parts | and II in terms of what is required to run the 
programs. | have modified programs specifically tied to English systems to 
be in line with American standards. For example coin search is in dollars 
and cents not pounds. In any event | hope using these programs 
encourages you to write more on your own and get the most from your 
Timex 1000. 


Introduction to Part | 1 


Introduction To Part I 


Part 1 of this book was originally published in England under the title What 
Can | Do With 1K? The programs will all run on either a 1K Sinclair ZX81 or 


a 2K Timex 1000. 

| was tempted to expand some of the programs slightly to make full use 
of the additional RAM provided on the Timex 1000, but as all the programs 
illustrate memory-saving techniques that are just as valid for 2K as they are 
for 1K, | eventually decided to leave them in their original form. 

Most of the programs have survived the Atlantic crossing intact, but the 
‘Business’ section has suffered rather severely. The program ‘SALES TAX’ 
was originally designed to deal with a peculiarly European tax called V.A.T. 
It is still appropriate for state taxes, but you will have to amend the first line 
so that it contains the correct rate of tax for your particular state. (| under- 
stand that some states do not have a sales tax at all — O.K., so the program 
is no use at all for you, but you get the book cheaper than everybody else!) 

Two programs which deal with the complexities of the British income 
tax system have been dropped completely. To make up for this, | have add- 
ed an extra 'GAMES' section at the end. Four games in exchange for 2 
business programs cannot be such a bad deal! 

Hoger Valentine 
London Nov. 1982 


2 My Timex Sinclair 1000 


Listing Conventions 


The following conventions have been used throughout Part | of this book. 
Please study them carefully before keying in the programs. 


| = The letter | 

1 = The number one 

O = The letter O 

Q = The number zero 

^ = The image quote (SHIFT Q) 

— z Space (where essential) 

Î = All items between 2 up-arrows are to be entered in 
GRAPHICS 

UNDERLINING = All underlined items are to be entered in INVERSE 


Note: These conventions have NOT been followed in Line 10 of DATA 
PRINT, or in DICE. 

The conventions for DATA PRINT have been noted in the text. 

For DICE, the A graphic square has been used. 

(USE Graphic A, H or Space, as you wish.) 
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EXAMPLES 


ій PRINT "ITI FIRST“ ¢EXAMPLE tr?" 


Enter the string as: 


LISTING KEYSTROKE 


“-- eh 


m + 


En 


-Imir-i7niz Emil zs 


Ailsa: 
G PRINT " " 


eo 


is not мера heleful, zo would be zhoun az: 


Cararhios ОМ) 
&usnaehic quarter square 
&graehics OFF 2 


SHIFT 
SHIFT 
SHIFT 


Su Hi 


өз 
sa 
к 
т 
i 
ci 


4 finverse OH) 


0 
= 
+4 
HE 
+ 

L 


HO KEYSTROKE ! actualls: 
SHIFT 9 inverse OFF? 
SHIFT 3 zsraehics UH? 
SHIFT Y igrachic auarter томарға) 
SHIFT 9 Zsraehics OFF? 


(n 


ій PRINT "eec 
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Chapter 1 
Fate and Fortune 


No apologies for starting with this section. We know that logical- 
minded computer people are not supposed to be 'into' this kind of 
thing, but WE are, and we suspect that secretly you may be too. 

Most of these programs provide data only. You must consult a 
book on the relevant subject for an interpretation of that data. 


Numerology 


This program converts any name into a single-diait number, according 
to ihe rule A21, B=2, 2=26=2 +6 = 8, etc. The number produced 
can be taken as a ‘lucky number,’ but is supposed to be indicative of 
your personality type. Technically you should use the name given to 
you at birth, but if you also try your nickname, or the name by which you 
are usually known, you can see how you have subconsciously 
attempted to alter your personality over the years. 


| Ching 


Just run this program to come up with your hexagram for the day. For 
demonstration purposes, you can continue to produce new hexagrams 
indefinitely by pressing NEWLINE. However, serious users should run 
the program just once a day, so delete the last 4 lines if you do not want 
the repeat facility. 


Fate and Fortune 
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MUMEROLOGY' 


= PRINT "EHTER YOUR НАМЕ" 

18 LET Hzü 

IHFLT HE 

CLS 

IF H=" STOF " THEM STOF 
РЕІНТ AT 3.8; "НАМЕ" 

PRINT HT 5,8; HE 

FOF Іші Tū LEH Hf 

LET C=CODE НЖ413-3Р 

IF C«1 ПЕ Cose THEN GOTO 80 
IF C«1B8 THEN GOTO FH 

LET dE 

GOTO Ba 

LET H=H+C 

IF Н>Э THEN LET HzH-a 

HET 1 

PRINT HT 7?,8; "HUMBER" 

FEIHT HT 3.85;H 

PRINT AT 11,9; "НЕХТ ONE PLEASE" 
РБІНТ 


fe fe Gi [qu н 


сал LE CN CN CO CA cu un 


un cn c cnc cn dc 


"T, 
as 


н bé A pco oy o] n TIT CL CRI 
(n c 


I CHING 


5 RAND 
18 LET P-6 , 

15 LET B$z"ecee" 

28 FOR K-8 TO 5 

25 LET A$=" ee" 

38 IF RNDC.S THEM LET Ag="se" 
35 PRINT AT P.11;B$;R$;E$ 

48 LET P=P+2 

45 NEXT К 

Se INPUT G$ 

55 IF $=" STOP " THEN STOP 
B CLS 


ЕШН 
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Chinese Horoscope 


Most people know their birth sign according to Western astrology (even 
those who claim not to be interested in the subject), but with this program 
you can discover not only your Chinese birth sign, but also your ascendant, 
your ruling element, and the sign governing the MONTH of your birth. 
To run, press GOTO @. Do not press RUN (for reasons we shall see 

shortly). The 4 inputs required are all numeric. 

YEAR: e.g., 1959 

MONTH: e.g., 4 (do not type April) 

DATE: e.g., 23 

HOUR: MUST be according to 24-hour clock, e.g., 1330 (for 

1:30 PM). If you do not know the hour of your birth, enter any 4-digit 

number, but ignore the ascendant given. 


NOTES 


Whenever you declare a variable in a program, it takes up room both in 
the Program Area and in the Variable Store. This can be extravagant at 
the best of times, but when, as in this case, you have a string variable 
84 characters long, it is going to take a big chunk out of 1K. 

However, it is possible to declare variables in immediate mode, 
and then refer to them in a program. Unlike some more expensive com- 
puters, the Timex 1000 will SAVE variables designated along with the 
program itself. 

The problem with this technique is that vou must not press CLEAR 
or RUN, but must use СОТО... (line number of start of program). For- 
tunately GOTO can be used with non-existent line numbers. so GOTO 
0 is always adeauate. If vou find you have difficultv rememberina when 
to use RUN, and when to use GOTO 0. consider using the 'Auto-Run' 
facility dealt with later. 


Fate and Fortune 


CHIHESE HOROSCOPE 
FIRST ENTER IH IMMEDIATE MÜDE:- 


LET R$-"MDHKEY-EDUSTERDUGe---BORRe--eRRT 
Qu ieccecrIGERCC-EREEITC-nDERHGOHCSHREE e 
HORSE++SHEEPS+" 


LET E£-"HETALHRTERHODTI-F IRE+ERRTH" 


5 FPRIHT "YEAR" 

ін ІНРІТ т 

15 PRINT "MONTH" 

га IHPUT М 

25 PRINT "DATE" 

38 IHPUT I 

35 PRINT "НОЦЕ" 

4а IHPUT H 

45 ELS 

=й IF M-i THEH Es Шшт-і 

55 LET Ә-іт-ІНТ (Ұғіг2Жі2Э%УЗ1 

ыз PRINT "ETH. ESIGN: н die та $4&2 
бе LET S=INT &Cy-IHT CYÀ41BO*18D/2)*5*l 
та FEIHT "ЕЦЕМЕНТ +: " EROS TO 5-42 
75 IF D21 THEN LET H=M+i 

: LET М=М= 

IF M2i1z THEH LET M=M-ie 

LET ЗӘшіМ-ізжузі 


PRINT "MONTHeere: ";RECS TO S463 
LET 5 ТЯ ог PTH? x гн "AAN uio 2345 
IF 5212 THEN LET 5=5-12 


LET S-5kT7-5 EE 
PRINT "RSCEHDRHT:";HizS TO ote: 


pee E qe oe LE Ln CC EC T 
roe a m ЕЛ co Cn ca cC 
Л П 
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Biorhythm 


In this program, you are asked to enter your date of birth (format as for 
Chinese Horoscope) and the current date. The program then 
calculates where you are in each of the three biorhythm cycles: 
physical, emotional and intellectual. 

These cycles are 23, 28 and 33 days long, respectively. ‘Peak’ 
condition is 14 of the way through a cycle, and ‘low’ is 34 of the way 
through. The start/finish and mid-points of each cycle are believed to 
be 'danger' areas. (So don't bother attempting any complex computer 
programming on days when you get intellectual: 16.) 


NOTES 


The program utilizes the handy fact that Timex 1000-Basic gives 
every number a code of 28 more than the number itself. By an amaz- 
ing coincidence, 28 happens to be the lowest number of days in a 
month, so the 'data string' (M$) is used to hold the number of days in 
each month as a single digit. M$(1) for instance is 3, and so CODE 
M$(1) is 31, the number of days in January. (M$ is only 11 characters 
long, as data for prior months only are required, so December is 
omitted.) 

Line 155 adjusts for leap years, but by a strange quirk of the calen- 
dar, 1900 was not a leap year, so the program won't work if you are over 
81! (2000 however WILL be a leap year, so itis valid for a considerable 
time yet.) 
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BIORH'TTHM 


5 LET M$="30323233232" 


18 
15 


PRINT ",0,В," 
GOSUB 188 
LET F=û 
PRINT "DATE TODAY" 
GOSUB 188 
LET Pzü-P 
PRINT TAB 18;D;".";M;",";M 
PRINT AT 3,8; "PHYSICAL £Z32:"; TAB 27; 
P-SS#INT «Ре2з? 
PRINT AT 5,8; "EMOTIONAL £285:";TRB 27; 
Р-28ЖІМТ £P/29) 
PRINT AT ?.8;"IHTELLECTLURL (332:"; 
TAB 2?;P-S3XINT €P4333 
STOF 
PRINT "DAY" 
IHPUT D 
PRINT "MONTH" 
INPUT М 
PRINT "ERR" 
INPUT Т 
CLS 
LET G=ÿ 
FOR J=1 TO M-i 
LET G-G-CODE М7» 
MENT J 
IF 0259 AND T^4-IHT tved) THEN LET ü-ü*1 
LET Gzü-I«IHT £365.295*097-122 
RETURH 
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Biochart 


If you prefer the more conventional graphic representation of bio- 
rhythms, this program prints out your chart for the next 3 weeks. Three 
inputs are required, these being the current biorhythm data as ob- 
tained from the previous program. 

The horizontal axis of the graph represents days, the first '—' 
being today. The vertical axis is, of course, arbitrary. 

The 3 graphs are superimposed on one another: If you find this 
confusing, try modifying the program to print them separately. 
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BIOCHART 


5 FOR J=@ TO 23 


PRINT HT &1I;"-^ 

HEXT J 

LET Р=23 

PRINT AT 6,6; "PHYSICAL" 
GOSUE 1688 

LET P=28 

PRINT AT 6,6; "EMOTIONAL" 
GOSUE 166 

LET P233 

PRINT АТ 8,8; "INTELLECTUAL" 
GOSUB 168 

STOP 


188 INPUT H 

185 FOR J=ġ TO 46 

118 PLOT J SINH CCIe£2EHo OXPI/POX10430 
115 HEXT J i 

128 RETURN 
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Decisions 


Finally a less serious method of fortune-telling! The inspiration for this 
program came from one of those swinging pendulum executive toys, 
which just goes to show that you can get programming ideas from all 
sorts of sources! 


NOTES 


Line 5: The program doesn't really care what question is asked, so 
dimensioning Q$ to 1 element allows the user to type away to his 
heart's content, without consuming valuable memory. This technique 
can be used in many more serious applications, where the action the 
computer takes is dependant only on the first letters of the user's input. 

Line 135: The letter Z is not a misprint! True, the variable Z has not 
occurred elsewhere in the program, so line 135 will cause the program 
to terminate with error code 2/135 (undefined variable), but of course 
this is exactly what we want. (If you feel uneasy about deliberately in- 
ducing errors in your programs, note that the Sinclair manual refers to 
‘Report’ Codes, not Error Codes!) 

Lines 200-205: This is a dummy loop, which we prefer to PAUSE 
because of the screen flicker. It’s more expensive on memory, of 
course, but in this case that is counteracted by the loop-control variable 
ending up with a value which is useful elsewhere. At the end of the 
loop, X =9 (not 10!!), which is precisely the value required in line 35, so 
that option 10 is not chosen twice. Don't waste loop-control variables! 
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Qu CD CD aes aq 0 Ga fac PO e ка 


Cn ca cna en mcn con ca cn e cn eon m 


"up CT 


тіз 
P 
ii 
4 ч 
b» 
iz 
iz 
i3 
a 
a! 
zn 


ba be {Ti 
pn cen 


fa P pa 


iea РЕІН „ВЕ U SATISFIED WITH Мт 


mL Go Le CU me Cr, 


Б DIM HEE 


SCHEDE. 

РЕІНТ “ASK ANY QUESTION" 
IHPUT G$ 

IF üudz"e" THEN GOTO z& 
LET к-із 


| THEN PRINT "NEVER" 
THEM PRINT "OF COURSE" 


p 

LET W-IMT CENTRE + 

IF X-1 THEM PRINT "TES" 

IF хар THEH PRINT "HO" 

IF X3 THEH PRINT "MAYBE" 

Е ят4 THEM PRINT "HOW SHOULD I EHOW?" 


THEN PRIHT "THAT IS UP TO YOU" 


Ped best bb ORA Bebe а 


алһын 5E ер 


8 T THEN PRINT "POSSIBLY" 
4-39 THEN PRIHT "I GIVE UPF-HHRT 10 


YOU THIHE T” 
FRIHT 
IF ziü THEH GOTO z066 


БЕРЕТ Pan di 

LHPUT ü$ 6 
lF G¥="N" THEM GOTO 38 
PRINT "Bh NORE?" 
INPUT GF 
IF Gé="r" THEN RUM 
PRINT "O.K. EYE"; 2 
PRINT "THIS 15 TRICKW...LET МЕ 

THIMK... 


FOR “=168 TO 18 5ТЕР-1 
NEST s 
GOTO 39 
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Chapter 2 
Printing With More Frills 


(If you don't know where the ‘more’ comes from, you haven't read the 
Sinclair manual properly!) 
Here are 3 routines to enhance your screen displays. 


Advertising 


So named because we sometimes leave this running in our shop win- 
dow. You can, of course, change lines 15, 30, 45 and 55 to anything 
you like. 


NOTES 


The main routine (lines 1000—1070) prints the strings OUTWARDS 
FROM THE CENTRE. 

The secondary routine (lines 2000—2030) inverts the strings on 
alternate printings. 

K simpiy aiternates between 'true' and 'false' (line 930) to call the 
inversion routine when required, 

N is the horizontal print coordinate, and can be varied at will. 

Always ensure that A$ contains an even number of characters, or 
the first one will be lost. If you like, you could add a routine to add a 
space to A$ whenever necessary, but it is far more economical to do so 
manually. 
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15 


2 SLOW 


18 


GIP PO or Ca Cn 


D hn tun uo n m n 
гш Co Cn Cu c Ca 


182 
183 
184 
185 
186 
187 
za 
281 
202 


283 


LET К-й 

(ЕТ R$-"SIHCLRIR 24 S1" 

LET Н=2 

GOSUE ieee 

LET Н%-"Ет SINCLAIR RESEARCH" 
GOSUE 16464 

LET H=H+5 

LET R£-"SOFTHRRE FROM: " 

GOSUE 1664 

LET Af="V+Hee 1 SeC KINGSTON ЕП. STAINES" 
GüSUB 1658 


FOR Ісі TO іва 

HEST I 

CLS 

REM :DELETE 928 FOR OTHER EFFECT 
LET Е=НОТ Е 

GOTO 15 


Ө LET = ЕН A$ 

8 LET HzH«z 

8 IF К THEH GOSUE гава 

@ FOR I-1 TO 1/2 

8 PRINT АТ Н. 16-І; АЖС 2+1 
8 PRINT АТ H.15*I;fR$zLÁ24I5 

ü HEST I 

& RETURH 

8 FOR 1-1 TOL 

8 LET A$CJI=CHRE (CODE CASt Jo o+1289 
а HEST J 

& КЕТПЕН 
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Inverse Print 


If you are unfamiliar with machine code listings, the procedure is as 
follows: 

1: Spot the program! The only part you have to enter is the second 
column, beginning 06 16 2A ... and ending 10 EF C9. It doesn't matter 
whether there are 1, 2 or more 'bytes' per line: They are arranged like 
this to help you understand the program, which, with the help of the 
Sinclair manual, you should be able to do. 

2: Count the number of bytes; in this case there are 23. 

3: Enter a Machine Code Loader. There is a very simple one listed 
on page 51 if you don't have one already. Line 1 should contain 23 (for 
this routine) X's, and LIMIT in line 10 should be set to 16536. 

4: Run the loader, and enter the 23 2-character bytes. 

5: (Optional) Poke the routine to line 0 (using another routine you'll 
find later) and delete the loader. 

6: Finally, if you are wondering if all this was worth the effort, enter 
the DEMO program which follows. 

Call the routine by: LET K 2 USR 16514. 


Demo 


Assuming that you have entered the machine code Inverse Print pro- 
gram, this demonstration shows the fantastic difference in speed be- 
tween machine code and Basic. 

Lines 100-140 translate the Inverse Print routine into Basic. (Not 
quite: the m/c routine searches the whole screen; this Basic version 
just covers the screen area which we know is in use, but the principle is 
exactly the same.) 

Because the m/c routine changes the whole screen INSTANTLY, 
option 2 introduces a delay loop (lines 50—55) to allow time for you to 
take your finger off the key. Option 3 omits this loop, so holding down 
key 3 creates the flashing effect. 
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el д6 
e ZA 
aS 23 
Gé ? 
ат FE 
aa 28 
ав ҒЕ 
ар 28 
ВЕ CE 
ii 7 
12 18 
14 18 
16 C3 


5 REM -M 
16 PRIHT 
15 PRINT 
zB PRINT 
25 FRIHT 
Зӣ 


^c 
a 


48 
45 
98 
do 
e 
188 
118 
126 
138 
148 
158 


GOTO 


PORE 
НЕХТ 
GOTO : 


IF ІНКЕТЖ< 


INVERSE PRINT 


16 START 
GC 48 
LOOF 

ré 
89 
ga 
a3 
SE 
Fi SKIPSP : 
EF SKIPHL: 

DEMO 


AT 1,1; 
AT 462012 
RT 6.5502: 
AT 3,5; "3 


34 


K.FEEK K-128 
K 


3B 


: IHC 


MM OR IHRE $2"3" 
с IF IHKET#="1" THEN GOTO 106 
LET KzUSR 16514 
IF IMKEY#="3" THEN GOTO зӣ 
FOR Е-і TO 
HEST K 

за 

LET Н=РЕЕК 
FOR K=H TO H+1@2 
IF PEEK E28 OR PEEK K=11 THEM GOTO 148 


16396+2568F EEK 


‘LD B,22 


LI НЬ, 1639 
HL 

LI я, CHEJ 
CP 118 


DJHz z39 
RET 


“C INVERSE PRINT- 
"IHVERSE FRIHTIHG DEMONSTRATION" 
BHSIC" 

MRCHIHE CODE" 
64-7 4€-€-€-€--" FLASHING" 
THEM GOTO 


16397 


see LIHES 


БУШ ELLE 


НЕХТ FOSH. 

: CHR. CODE 
IS IT “IL” 
IF 50, SKIPHL 
sls ІТ SPACE 
IF Sü,SKIPSF 
QIHVERT СНЕ. 
; FRIHT 

iNET CHE. 
HEST (ІНЕ 

; RETURIH 


3B 
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Data Print 


There have been many programs published (and you have probably 
written one yourself) which enable you to 'draw' onthe screen. But how 
can you SAVE your masterpiece? The idea of Data Print is to store your 
graphic displays in a data string. The program also offers a couple of 
useful aids to simplify your drawing. 

If you want a number of blank spaces, just enter that number into 
the string. Similarly, if you want a number of black spaces, enter the IN- 
VERSE number. To force a line feed, i.e., if all the remainder of the line 
is blank, enter N. 

Before you run the program, you must first create your drawing. 
Use a sheet of graphic paper. Then enter the data string, using the 
facilities mentioned above for large areas of black or white. You will 
probably find it easier to 'read' direct from your drawing, rather than 
write down the string first, but don't forget the N at the end of each line. 

The example we have chosen to illustrate this very useful tech- 
nique is a pretty appalling map of Ireland! None of us at V&H are artists, 
and this is the best we could come up with! If any of you can do any bet- 
ter, let us know and we will use the best example(s) in the next edition 
of this book. 

Note: If your data string is not much longer than ‘Ireland,’ it will fit 
in the program as line 10: otherwise enter it in immediate mode and use 
GOTO 0 to run. 

Please note that, for the Ireland map, we have abandoned the 
usual listing conventions. The first number should be entered as a nor- 
mal number. The characters in the central column are either inverse 
numbers (when underlined) or graphics. The N of course is a normal N. 
The entire string should be entered continuously with NO SPACES. 


Think you could do any better? 
(Could you possibly do any worse?) 
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DATA PRINT 


сӣ FOR J=i TO LEH A$ 

38 LET H=CODE Asc J> 

46 IF Н<>51 THEN GOTO 78 

SB PRINT 

өй GOTO эй 

УВ IF (Н>28 AND Н<392 OR (N2156 
AHD М<1562 THEN GOTO іва 

РЕІМТ СНЕЖ Н; 

MERT J 

STüF 

FÜR Е-ігзЗжеМ>1282 TO H-29 

PRINT CHR$ Ziza*cH-12822; 

zB HEST K 

38 GOTO 26 


MA eA bé Lin CO 
| c CO tnr im Ca 
Co tt 


n 


i 


DATA FOR “IRELAND? 
18 LET A$="F S4E34 H 


E  GiH£s H 
6 ig H 
= ТтЕМЯБЕ М 
= SSE 1 H 
1 ЗГЕ H 
2 ТЕБЕ H 
3 3eE М 
3 065 М 
2 77051 H 
SSE H 
37R1 H 
1 est 
1 гі M 
I ЭЎ H 
Fi n 
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Chapter 3 
Casino Gambling 


We are certainly NOT trying to encourage gambling. On the contrary, 
you will lose so much hypothetical money playing the games in this 
section, and the Timex 1000 will lose so much money playing roulette, 
that you should be convinced that the only winners are the casino 
owners! Nevertheless, casino games almost always hold a fascination 
for computer users, and so we are including a few of the more unusual 
examples for you to play. First, though, let's give the Timex 1000 a 
night out, and see if it can break the bank at... 


Roulette 


Many people claim to have created winning systems by using a com- 
puter. Can it be done? That is up to you to discover; we are going to pro- 
vide a ‘standard’ roulette program, and then use it to test 4 of the most 
popular systems. You can slot your own ideas in, and see if you can 
come up with a winner. 

The Timex 1000 is not going to try for spectacular wins by playing 
the ‘long shots.' It knows that the best odds in roulette are for the ‘even 
money' changes: Pair, Impair, Rouge, Noir, Manque and Passe (or, in 
English, Even, Odd, Red, Black, 1-18, 19-36). It doesn't matter which 
of these is chosen, so for this series of games, the computer will always 
bet 'Even.' 


THE STANDARD PROGRAM 


This is a ‘non-system’ in which the computer bets a constant stake 
throughout. It should show a small but ever-worsening loss. (Problem: 
What is the expected loss over 370 games for a constant $1 stake?) 


NOTES 


Nisthe actual winning number, which is not required unless it happens 
to be 0, in which case half of the stake is returned (lines 150 and 270). 
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X is the winning number, expressed as even, (X = 1) or odd (X = 0). 
X is also set to 0 if N = 0, so that, for the systems, 0 is considered to be 
a losing spin. 

The ‘menu’ (lines 50-70) is there in case you don't trust the com- 
puter to play fairly! Select option 2 to input numbers from, say, a toy 
roulette wheel (or recorded from an actual casino, if you want to get 
really fanatical about this). 


ROULETTE 


18 RAND 

28 LET F=ÿ 

38 LET T=1 

44 LET 5-Т 

59 PRINT "1:CüMP WHEEL" 
68 PRINT "2: "üUReece^" 
үй IHPUT a 


sa CLS 

36 PRINT "I BET EVENS:$";3 
188 LET Р-Р- 

118 LET N= INT CRHIMES? 


128 IF A=2 THEN INPUT H 
Loe IF ней ОЕ H>36 THEN GOTO i128 
148 LET кай 
i58 IF МОТ Н THEN GOTO 276 
168 IF H/2-IHT «Н/22 THEN LET #=1 
1?8 PRINT H 
186 PRINT "Ie"; 
198 GOSUB 4ü88-568X« 
гай PRIHT "HET £f"; 
218 IF SGH Р=1 THEN РЕІНТ "+"; 
220 PRINT P.,"RFTERe€"; T; " eSPINS" 
238 FOR W-1 TO 38 
246 НЕХТ & 
250 LET T=T+1 
266 GOTO 7S 
276 LET P=P+3S/2 
286 GOTO 178 
8 LET Р=Р+5+5 
@ PRINT "МІН" 
& RETURH 
8 PRINT "LOSE" 
B RETLURH 


ee d) Ov Cn 
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Line 130 is just an input check, and serves little purpose (none 
whatever if you select option 1). Similarly, line 210 is purely cosmetic. Both 
these lines may be deleted, as may lines 50, 60, 70 and 120, if you require 
more room to test a particular system. 


SAVE a copy of the standard program, as it is the basis for all of the 
next 4. 


Martingale 


This system involves doubling the stake after a loss, and reducing it to 
1 after a win. It is infallible! (But see the comments on page 32). 


Reverse Martingale 


This is the exact reverse of the above, and it should make a small but 
progressive loss. However, there will be the occasional big win, which 
SHOULD leave you in profit. The system fared badly in our tests — 
possibly because its most effective use is not over a set number of 
games, but just up to a point when the user is in profit. As this seems to 
go against the psychology of gambling, the authors could see little 
value in the system. 


D. Alambert 


Raise the stake by 1 unit after a loss. Reduce it by 1 after a win. This 
tends to keep the stakes lower than with the Martingale, but notice that 
it did produce the most spectacular losses in the series of test games! 


Labouchere 


This was so amazingly successful that | think I’ll head straight to the 
nearest casino, rather than explain to you how it works! 

(And while you are working that out, see if you can see the flaw in 
all these systems, and why you can't actually break the bank using any 
of them.) 
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MART IHGRLE 


i62 LET 2-1 
ӨЗ LET 5=5#%2 


REVERSE MARTIHGALE 


LET S=5#2 
IF $2256 THEN LET 5-1 
LET $21 


Ca C M 
inam 


Id pd 


It. ALAMBERT 


365 LET 525-1 
366 IF 5-0 THEN LET 5=1 
405 LET 5=5+1 


LREGUCHERE 


48 REM ** DELETE LINE 48 жж 
138 REM Жж DELETE LINE 1238 жж 

73 LET A$=" 2741" 

75 LET 5- CODE R$(1»*CODE АСЕН AS) 
255 IF Ag="" THEN GOTO 73 

365 LET Нф-Я%(2 TO LEM A$-1) 

403 IF 52255 THEM LET 5-255 

495 LET A$=A$+CHE$ 5 
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Results Analysis 
All 5 roulette programs were tested over a series of 8 ‘sessions,’ each 
session consisting of 370 games. The results were as follows: 
1 2 3 4 5 6 7 8 Average 
Standard -69 -54 -17 -5 8 16 -22 -36 — 22 
Martingale 212 262 207 203 186 223 178 210 210 
Reverse 
Martingale 167 -178 -17 90 -164 92 21 88 -41 
D. Alambert -264 -655 48 184 -673 212 80 78 -124 
Labouchere 735 664 766 603 773 512 744 227 628 
CONCLUSIONS 
As only one of the 'control' sessions came close to the expected loss, 
our main conclusion was that even 2,960 games was insufficient for 
serious statistical analysis! 
However, we did conclude that, provided you go into a casino with 
the understanding that you will almost certainly lose money, both the 
D. Alambert and Labouchere would probably provide a more entertain- 
ing evening than simply random betting. 
Before you get too enthusiastic about LABOUCHERE, we must 
tell you that in one final test session, this produced a loss of $3,205!!! 
For further details, see page 32. 
Boule 


If all that theorising hasn't put you off to gambling for life, here is a 
game which might! Boule is a sort of ‘mini-roulette’ which is often found 
in France, but is illegal in England because the casino advantage is so 
high. 

There are 9 numbers on the wheel; 1, 3, 6 and 8 are black; 2, 4, 7 
and 9 are red, or in the Timex 1000 version, white. The 5 has a function 
similar to @ in roulette, i.e., it can be backed as a number but not in any 
of the combination bets. Unlike roulette, however, all bets except those 
on the number 5 lose completely whenever 5 is spun. The bets 
available are: 

Noir (any of the 4 black numbers) 

Blanc (any of the 4 white numbers) 

Manque (any of the low numbers 1-4) 

Passe (any of the high numbers 6-9) 

Pair (any of the even numbers) 

Impair (any of the odd numbers EXCEPT 5) 

All the above pay even money 

Any number individually (including 5) pays 7 to 1. 

There is a board for playing Boule printed on page 28. 
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NOTES 


The main program loop (lines 15-65): 
1) Prints the numbers of the ‘wheel’ (lines 30 and 45). 
2) Is of variable duration (line 20). 
3) Slows down towards the end (lines 50 and 55). 
4) Returns the winning number in N. 


EDULE 


= RAHI 

LET Hzü& 

LET Af="1234#6789" 

LET MzZ1SXxIHT ZRHIBEBo-1234-5IHT 
CRIES 12 

23 FOR J=1 ТПМ 

3H РЕІНТ HT а, HET; "e" 

35 LET H=H+i 

46 IF Heo THEH LET HzH-3 

43 FEIHT AT а, НЗ: АЖЕН 

50 FOR K-M-1&8 TO J 

Sg HEST Е 

68 LET DzREHIXFEHI 


Eire pe 
шіліш 


65 MEAT J 
18H PRINT Wi" PHYS pel" 
B 


5 IF H-5 THEM GOTO 135 

18 LET A$="HOIR" 

15 IF Hz2 ПЕ Н=4 DOR H-? OF H=% 
THEH LET H£$-"BLRHC" 

GÜSLE 288 

LET HA$= "MANQUE" 

IF H25 THEH LET A$="PASSE" 

GOSUB Zhe 

LET A$="PAIR" 

IF HÁ^ZZ2IHT theses THEH LET A= 
"IM" RE 


p pt bob pk pot ра 


4. 4, G3 60 fe fi 
ілішілішіліш 


158 GOSUB züü 
1955 PRINT. "ALL OTHER PETS LOSE” 
ien CLEAR 
165 INFUT AF 
176 CLS 
178 RUM 

200 PRINT АФ; " PAYS EVEN" 

гін RETURH 
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Line 60 is another form of pause, again preferable to the PAUSE 
statement. It can be omitted if you want to play the game at a faster 
pace. 

The remainder of the program prints the winning bets. Line 160 is 
included before the re-run option; otherwise there may not always be 
room for even a null input. 


Noir et Blanc 


Another obscure French game, Noir et Blanc is normally played with 
cards. The dealer lays a horizontal row of cards, and continues adding 
to the row until the ‘pip-count’ totals more than 30 (А = 1; picture cards 
= 10). He then deals a second row, again until it totals more than 30. 
The winning row is the row with the LOWEST total. The top row is 
called Noir, and the second row is called Blanc. 

Four bets are allowed, which all pay even money: 

Noir: The top (noir) row will win. 

Blanc: The second (Blanc) row will win. 

Couleur: The color of the first card dealt will be the same as the 


NAME of the winning row. 


Inverse: The color of the first card dealt will NOT be the same as 


the name of the winning row. 


It is these last 2 bets which give the game an appeal totally out of 


proportion with its complexity! 


NOTES 


If both rows total the same, it is a draw and all bets are returned, 
UNLESS they both total 31, in which case there is a REFAIT, i.e., all 
bets remain on the table, to be returned only if they win on the next 
deal. 

Again there is a main program loop (lines 25-90) and a ‘tail’ 
which prints out the winniners. Line 10 is another form of data state- 
ment; rather than hold the cards in a string, putting them in the first 
program line makes them easily accessible by PEEK (line 45). 

Line 50 randomly inverts the selected card, so that the entire 
‘pack’ need only contain 13 cards. 

The winners of the two pairs of bets are determined by the 
Boolean logic of lines 105 and 120. The couleur/inverse bet is settled 
inline 120 by first PEEKing atthe first card (6 positions into the display 
file, because the display always starts with М, O, I, В and Newline), 
and setting a flag (X = 1) if the card is black. (Otherwise X = 0.) The flag 
J has already been set to 1 if the Noir line wins (line 105), so the 
Couleur bet will win if X and J are the same, regardless of whether 
they are both @ or 1. 


ua c oo o] р 0 oi 0n 
ci cn e on c en ca cn 
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HOIR ET BLANC 


REM Aes45e7S9T IOk 
DIM Aces 
PRIHT "HOIR" 
FOR J=1 TO 2 
LET S=INT £RHDX*132-41 
LET Y= 
IF *?218 THEH LET т-1й 
LET RH£-CHE£$ (PEEK 16513+42 2 
IF ЕНІ<.5 THEN LET H$-CHE£ CCOIE 
nri-1285 
РЕІНТ Ags "e"; 
LET AC Js=AeJ9+7 
IF ACI><31 THEN GOTO За 
LET At J3=A¢J3-38 
PRINT TAB 20; "= "JACI 
LET A¢="BLAHC" 
IF J=i THEM РЕІНТ A$ 
HEXT J 
IF ACi>=ACS> THEN GOTO 168 
LET J=AC i s<AC2> 
IF J THEH LET At="HOIR" 
FRIHT At 
LET х=РЕЕЕ AUC 16396+256#PEEK | 
1639724522128 
EET H$-" IHMVERSE" 
IF %=J THEN LET A$=" COULEUR" 
ЕЕІНТ AS 
IHFUT At 
CLS 


B RUH 
& LET A$=" IRAH" 


IF A¢i2=1 THEN LET A$="REFAIT" 


ir PRINT AF 
75 GOTO 146 
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Boule 
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Noir et Blanc 


30 My Timex Sinclair 1000 


Craps 


We must state at one that this is the name of the game, and not a 
description of it. (Though some readers might disagree!) 

Craps is a typical example of how a simple activity like rolling a 
couple of dice can be turned into a game so amazingly complex that 
you would need an IBM megacomputer to hold all the possible op- 
tions and variations. Faced with trying to cram such a game into 1K, 
there are two possible approaches, and indecisive as ever, we have 
adopted both of them. 

In DICE, the computer merely handles the mechanics of the 
game (i.e., just rolls the dice). CRAP SHOOTER eliminates all players 
except one, thereby reducing the variety of bets considerably, as 
there are no 'side bets' and, of course, the 'shooter' is not allowed to 
bet that he will lose. 


DICE 


Dice throwing programs for the Timex 1000 are not uncommon, but 
we have included this one because it has the advantage of allowing 
the number of dice to be thrown at once to be pre-selected. Up to 4 
dice will be shown on the screen at one time. If a larger number has 
been requested, then the screen will clear after the pause loop (lines 
164-166) and the next 4 will be printed. At the end of each ‘throw,’ 
simply press NEWLINE to throw again. 

The line numbers of this program have not been 'tidied up,' so 
you can see where the pre-selection routine has been added to the 
original program. If you merely require, say, 2 dice, as you would to 
play craps, you can delete all the ‘late additions’ (all line numbers 
which don't end in 0) and change D in line 180 to the required number. 
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DICE 


4 PRINT "NO. OF DICE?" 


& I 
is 


28 


udo mam am 


CH CT] te 13 


"T SO, (т 
mat Cur d as 
os Co Cu 


hes mo 
Lt Lt 


20 
үші 


be peus RÀ ph pa ыы R4 LET LU 


1! Qe O3 B PO C2 


[ho 


r., 
aa 


LU I ET а аа curn. doi fe ps a 
zm 
e 


[RID көке pade Be pad pur 


(54 L 
ке 4. 
T. gu QU 
Eu I 


HPUT I 

RAHE 

ПІН А6, 155 

LET ЯФ 1 у=" ае 


LET AFIN 


LET Н4<3) 
LET H$i43 ë 
LET Age Sos" Beets 
LET АЗЕ 
CLS 

LET Най 
LET x-IHT «RHIWMEÉ2-1 
FOR Je1 TO 11 STEP 


5 


PRINT ТАЕ MiA J TO 17443 


PRINT 
HEAT J 
LET HzH43 


IF HÉSSESINT 4НУ222 THEM GOTO 


FOR хай TO H 

HEXT X 

cS 

PRIHT AT 6.6: 

TF HzSxD THEN GOTO 
ІҢРІЛТ GE 


118 


іга 
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CRAP SHOOTER 


As already stated, this is a one-player version of craps, with no side 
bets. The shooter (you) starts with $100 and stakes $1 per game. A 
'game' proceeds as follows: 

First roll: 

7 or 11: NATURALS: Win immediately 

2, 3or 12: CRAPS: Lose immediately 

Anything else: COME-OUT ROLL: Proceed to roll #2 

Second and subsequent rolls: 

Continue rolling until you roll either: 

Your come-out roll (again): WIN 

7: LOSE 

Note that 7, the most common roll with two dice, wins if rolled first, 
but otherwise loses. 2, 3, 11 and 12 have nosignificance other than for 
the first roll. 


FINAL THOUGHTS ON ROULETTE 


Before we leave gambling completely, here are the answers to the 
questions posed on pages 20 and 21. 

The expected loss over 370 games (constant $1 stake) is $5. 

The reason that none of the systems work is that all casinos have 
a maximum AND a minimum stake, i.e., even if you start at the 
minimum stake, any system which involves increasing the stake is 
eventually going to exceed the maximum, at which point, of course, it 
will break down. 

The Labouchere tends to avoid the problem of reaching the max- 
imum by reducing the stake more often than increasing it. (Almost 
twice as often—if you still can't see how it works from the listing, drop 
us a line and we will explain it.) As you can see from page 24, it works 
quite often. . . but when it fails, it really fails! 
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CRAP SHOOTER 


PRINT TAB 10; "CRAP SHOOTER" 
LET N-181 ee 
LET C=a 

LET N=N-1 

PRINT AT 15,6;"YOU HAVE £";H 
LET тей 

PRINT 

PRINT "PRESS N/L TO ROLL" 
INPUT 04 

CLS 

LET X=INT CRNDK6)+1 

PRINT X, 

LET v2 

IF Y=% THEN GOTO 6&8 

PRINT 

IF C THEN GOTO 185 

IF 744 OR Үсі2 THEN GOTO 200 
IF Y=7 OR Y=11 THEN GOTO 256 
LET P=" 

LET С=С+1 

B PRINT 

PRINT "СОМЕ OUT ROLL: "iP 

B IF C-1 THEN GOTO За 

PRINT 

IF "УР THEN GOTO 168 

PRINT 

PRINT TAB i8; "ЖЖРОІНТ MADE" 
LET N=H+2 

GOTO 28 

IF 7-7 THEN GOTO 208 

PRINT "ROLL: ";' 

GOTO 38 

PRINT 

PRINT TAB 13:43" CRAP" 


218 GOTO 26 

258 PRINT 

255 PRINT TAB 16; "xX«HRTURBLX* "i'r 
266 GOTO 145 
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Chapter 4 
Data Files 


One feature noticeably absent from the standard Timex 1000 is the 
ability to read and write external data files. However, by extending an 
idea we have used previously (that of SAVEing variables along with a 
program), we can effectively emulate a data file by SAVEing a copy of 
the program, with the LATEST value of its variables, AFTER it has 
been run. 

The next 2 programs are for fun. Later, in the Business section, we 
will put this principle to more serious use. 


Top Ten (Chart Data) 


This program reflects the author's joint obsession with pop charts and 
statistics (?!) Every year, the pop music papers publish a ‘points table” 
of artists who have had hit records that year. Each week they score 30 
points for a record at number 1, 29 for number 2, etc. Each year, | am so 
fascinated with these 'charts of charts,' that | vow not to wait another 12 
months for the next one, but to keep my own weekly up-date of the 
points table. Even with the aid of a computer, this is a formidable task, 
and rather beyond the ability of 1K. This program, therefore, is a ‘mini’ 
points table; you select 10 of your favourite artists, and follow their 
relative chart progress throughout the year. 


NOTES 


The program has been squeezed considerably to allow it to hold data 
on 10 artists. Line 6 is a long-winded but, believe it or not, more 
economical way of saying LET C 210. (Check this with the 'Byte- 
Counting' routine on page 47. Similarly, line 7 sets D = 1. The first 6 
lines have been given these low line numbers just to allow line 115 to 
say GOTO C instead of GOTO 10! 

G$ has been dimensioned to hold the first 10 characters (only) of 
the 10 artists' names (line 8). 

Lines 5, 10 and 25 allow entry of artists' names on the first run only. 
On subsequent runs, A$ is a null string (as execution commences at 
line 10), so line 25 is skipped. 
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TOF TEM <CHART DATA: 


LET A$="HAMES" 
LET C-CODE "151" 

(ЕТ реб 
DIM G#iC,Ci 
DIM SEC) 

PRINT AT C.D;" IHMPUT VERT ROSH." 
FOR HzI TO C 

SCROLL 

IF Hfc?"" THEN INPUT GEcHs 
РЕІНТ BtcH 

IHPUT я 

IF X THEM LET S£H3z31-E*SCH2 
PRIHT Scho 

HEST М 

ЕСЕ Нер To C 

SCROLL 

HEXT H 

PRIHT "PRESS 5 TO SAVE DATA" 
LET Ag="" 

IF IHKE*v'f$z2"S" THEH GOTO 86 
TAR IE "TT" 
CLS 
hice | 

4 FOR H-D TO C 

PRIHT бжсЫы»., BEHO 

НЕХТ М 

пото C 


(Occ p os cn 


Do C ГО f am emt 


£n o Cn e cn een en 


іл cu 


Tu m 
n c 


бағ! 


RA ex ке FRA A LC GO D 0 Ур Өз Ci CA LT d 4% 
Rac can 


ere DEN Co in 


QR Cn Ga 
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Computer Dating 


The Timex 1000 can do many things; whether it can help create perfect 
marriages remains to be seen! This is intended as a 'fun' program, to 
be used among your school or work mates or at parties. But if any suc- 
cessful partnerships result, we'd be very pleased to hear! (For gay par- 
ties, delete lines 500 and 505—the Timex 1000 is nothing if not 
versatile!) 


PRELIMINARIES 


At the back of this book, you will find a questionnaire. Photocopy and 
distribute as many copies as possible. 

Complete the 'input document' at the foot of each questionnaire. 
Box 1 should always contain M or F. Boxes 2-7 should contain 1 or 2, 
according to the item chosen. Boxes 8-10 should contain the 3 'likes' 
letters (in alphabetical order); boxes 11-13 the 3 ‘dislikes.’ 

Establish a databank as follows: 

Run the program selecting menu item 1, and enter the relevant 
data. (Name/Box 1/Boxes 2-7/Boxes 8-13). Repeat this until you have 
SAVEd data on all the applicants. Note that this part of the program will 
end by naming each applicant as his/her ideal partner (fair enough!). 
Enter NEWLINE to proceed to the next applicant. 

Now rewind the tape, and you are ready to start matchmaking. 
Select menu item 2 and enter the first applicant's data. The program 
will search through the tape for suitable partners. (If it fails to find a 
match for everyone, it serves them right for being thick, humorless, 
disco-going, poetry fanatics!) 


NOTES 


The interesting feature of this program is that it uses the program 
NAME as a data store, a concept which you should be able to use 
elsewhere. 

Lines 500—505 reverse the first element of the data string P$ (1 is 
female: 0 is male) so that a match of the opposite sex is found. 
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COMPUTER DATING 


5 PRINT TAB 9; "COMPUTER DATING" 


16 PRINT 
15 PRINT 


"1: DATA" 
"2: PARTNERS" 


26 INPUT M 


25 PRINT 
за INPUT 
39 PRINT 
46 INPUT 


"МАМЕ" 

Ne 

"SEX M/F" 
55 


45 LET P$z"1" 
Әй IF S$="M" THEN LET P$="g" 


55 PRINT 
66 GOSUE 
65 PRINT 
rø GÜSUE 


"PERSOHRLIT* CODE " 
268 
"LIKE/DISLIKE CODE “ 


200 


75 IF М-2 THEN GOTO Sea 


&8 PRINT "START ТАРЕ: PRESS 5 TO SAVE DATA" 
85 IF INKEY#<>"S" THEN GOTO 85 

28 SAVE Pf 

95 CLS 


180 PRINT "YOUR IDEAL PRRTHER IS" 
185 PRINT Н+ 
118 PRIHT "WAHT AN ALTERNATIVE?" 
115 INPUT H$ 


126 CLS 


125 IF W$<>"4" THEN RUN 

138 GOTO 518 

2098 ІНРОТ 5% 

218 IF LEN 5%<>6 THEN GOTO 288 
226 LET PS=F$+54 

230 БЕТПЕН 

588 LET M=NOT VAL F$c15 

585 LET Pci =STRECM) 

518 PRINT "PRESS L TO LOAD DATA" 
515 IF INKEY#<>"L" THEN GOTO 515 
526 LORD P+ 
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Check Digit 


This program has nothing whatever to do with data files, and appears 
in this section due to a computer error. (Well, that's the excuse 
everyone else uses!) 

A check digit is a very important but much neglected form of data 
validation. The LEAST serious consequences of invalid data being 
entered into a program are that the program will crash or will produce 
inaccurate results (the well-known GIGO phenomenon: Garbage In, 
Garbage Out). The consequences can be far more serious if the invalid 
entry is made fraudulently by an unauthorized person. The principle of 
a check digit is that, whenever a numeric entry is required (typically a 
stock code number, for example), the final digit of the number is in 
some way related to the rest. Therefore a randomly chosen entry will 
not be accepted, as it does not satisfy the check digit's validation rules. 


The simplest form of check-digiting is to add the digits of a number 
together (reducing if necessary to a single digit, as we did in 
‘Numerology’), and append the result to the original number (thus 153 
becomes 1539). This program adopts a more complex approach, and 
should appeal to the more security-conscious readers. 

First you invent a ‘code’: any series of numbers, as long or as short 
as you like. Then enter your number to be 'check-digitized.' The check 
digit is formed by taking each digit of the number in turn, multiplying it 
by the corresponding digit in the code, and then adding these numbers 
together as before. 


NOTES 


The routine at lines 45-60 temporarily extends the check code in cases 
where the number entered is longer than the code. 

To run the program for a series of numbers, press newline after 
each 'security number' appears. To change the check code, enter N. 
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CHECK DIGIT 


5 LET Ag="" 


PRINT "CHECK CODE ", 

IF A¢=""" THEN INPUT A$ 
PRINT R$ 

PRIHT "NUMBER", 

INPUT Bt 

FEINT Bt 

LET *zü 

LET C£-H£ 

IF LEH C#>=LEN B£ THEN GOTO 65 
(ЕТ C#=C#+"1" 

GOTO 5а 

FOR J=1 TO LEH Bt 

LET H=VAL CEcJo#VAL Bec Jo 
GOSUB 158 

LET ‘t= t+ 

НЕХТ J 

LET xz" 

GOSUB 156 


3 PRINT "SECURITY CODE ",Bf$;4 


PRIHT HT 19,6; "H#Lz SAME CODE " 
PRINT " H= НЕМ CODE " 

PRINT " S= STOP " 

IHPLUT 0% 

CLS 

IF G£$-"H" THEH RUH 


135 IF G$="S" THEN STOP 
148 GOTO 18 

158 IF #£=S THEN RETURH 
155 LET Х-я-9 

1&8 GOTO 158 
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Chapter 5 
Business Programs 


We are not suggesting that the 1K Timex 1000 is the BEST computer 
for business use, but neither have we time for suggesting that it is ‘just 
a toy.’ 

The first program in this section is of the ‘extended calculator’ 
variety: you CAN work out your sales tax with a calculator, but it's a lot 
easier on the Timex 1000. BANK RECORDS is more 'personal finance' 
than 'business': again you could do this with a calculator, but many 
people don t bother. The Timex 1000 not only makes it easier, but also 
more fun. CREDIT CARDS is a very useful program to assist the 
retailer, for whom credit card sales often cause more problems than 
they are worth. 


Sales Tax 


No explanations necessary. The most important feature of this pro- 
gram is that it is menu-driven, so that you can calculate sales tax either 
from gross OR net fiaures, 

Line 5 is the current sales tax rate, and is the only one you should 
ever have to change. 

Line 500 is one you should memorize and use everywhere. It 
rounds floating point figures to the nearest hundredth. 
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SALES TAX 


ы LET Ме f9 

18 LET VzV-41 

15 PRINT AT 3,109; "ЧАТ CALCULATOR" 
26 PRINT AT 7.,8;"1: VAT FROM GROSS" 
25 PRINT AT ee VAT FROM HET" 
SA LET I£f-2IHKE'£ 

oo IF I$C"l" DK 145 "2" THEN GOTO 36 
4a CLS 

45 GOTO i&GGx*'VRL I$ 

188 PRINT "GROSS" 

118 IHFUT G 

126 LET Табу 

136 GOSUE See 

148 LET H=T 

158 GOTO 256 

208 FRIHT "HET" 

218 INPUT Н 

226 LET Т-Нжу 

236 GOSUE Sac 

248 LET б-Т 

254 CLS 

260 PRINT AT 3,5; "GROSS", G 

270 РЕІНТ AT 5,5;"HET",H 

288 PRINT AT 7.53 "VAT", G-H 

сай PRINT AT 26.4; "PRESS HEHLIHE TO CONTINUE" 
366 INPUT If 

314 CLS 

324 RUH 

Sad LET T2IHT ¢T#i6e@+.5 9-188 

518 RETURN 
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Bank Records 
This is a useful program for those of you who don't like paying for bank 
statements too often. When you DO get a bank statement, look out for 
bank charges and any other items you haven't included, and make the 
appropriate adjustment on your next run. You have one opportunity to 
put in an adjustment figure, at the ‘Standing Order ETC.’ entry. 


NOTES 


Line 220 prevents running out of memory from having too big a display 
file. 

Line 260 may look confusing because of all those A's, but all it 
does is leave your entry positive when the first letter of A$ is A (i.e., 
A$ = "AMOUNT. Otherwise the entry is taken as negative. 

The program uses the Auto-run feature (actually ‘auto-goto 30) so 
after you have SAVEd your data, the words ‘NUMBER OF CHECKS' 
appears. Enter an alpha character to break. If at any time you want to 
set a new opening balance, break immediately after loading, and press 
run. 

Readers with unusually large bank accounts, or those who receive 
unusually large checks, may have to alter the formatting line 280. Alter- 
natively, they could reduce their bank balance to a more manageable 
amount by sending all excess money to the address at the front of this 
book! 
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БАНЕ REL. 


18 PRINT "ПРЕМІНб BRLRHCE" 
zB INPUT ПІ 
38 PRIHT "HUMBER OF CHEQUES" 
48 LET A$=" CHG." 
SB GOSUB zü 
өй РЕІНТ "HUMBER OF PAYMENTS" 
үй LET AS="ANMT. " 
Sa GOSUE 286 
36 PRINT "VALUE OF STANDING ORDERS ETC." 
188 LET Hzi 
116 LET A$="S,0." 
126 GÜSLE 216 
138 PRIHT "PRESS S TO SAVE DATA" 
SCROLL 
IF IHKE'*£fZ2"Z" THEM GOTO i158 
SAVE "BAN "REC." 
CLS 
GOTO 38 
THPUT H 
FOR H=1 TO H 
IF xE/SZIHT X63 THEM CLS 
SCROLL 
248 FERIHTR$:9: 
256 IHFUT A 
266 LET A=A-C2#A AND ASE Loc AS 
270 LET O=0+A 
гра PRIHT ТАЕ 6; а, "ВА АНСЕ "30 
298 НЕХТ & 
388 РЕІНТ AT ай, ғ 
214 RETUEH 


1 [a pa [a pes het pote pute ра 
қа P e C ie Qi CIE 
Cu Ca Co CR em m n Ca 


r 
b 
ІШ 
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Credit Cards 


Atthe time of writing, there is some controversy about whether retailers 
should be allowed to charge a premium on credit card sales. The 
reason they want to do so is that credit card sales not only cost the 
retailer money in commission, but also create extra accounting prob- 
lems. This program will not solve the first problem, but should alleviate 
the second. 

This program is written for the ZX printer. This is to provide the 
user with a hard-copy listing of credit card batches submitted. It is of 
less value without these listings, but if you don't have a printer, change 
all LPRINT lines to PRINT, and add a PAUSE after line 100. 

Line 50 is the name of the credit сага company. A different copy of 
the program should be used for each company for whom this system 
applies. 

The ‘96’ in line 85 is 100 less the percent commission charged by the 
particular company. Amend this to the actual figure, if necessary. 

The ZX printer provides a tally-roll of submissions (gross and net), 
which should be compared with statements received from the 
company. 

The screen, meanwhile, displays the NET amount still out- 
standing. 

The write-off routine (lines 130—140) allows for reconciliation in the 
event of invalid cards being dishonored by the company. 
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CREDIT CARDS 


LPRINT "DIHERS EXPRESS" 
PRINT "HO. OF BRTCHES" 
INPUT H 
FÜR J=i TO H 
PRINT J 

INPUT Ж 
LET 5=5+# 
LET Y=IHT ¢k#96+.5)-168 
LET C-C-X-V 
LET Т-ТжҮ 

LFRIHT " AMOUNT "asa "МЕТ "т 
CLS 

МЕТ J 

PRINT "RECEIPTS" 

INPUT J 

LET T=T-J 

PRIHT "HRITE OFF" 

INPUT J 

LET Tals] 

CLS 

PRIHT"OUTSTRHIHMHG: ";T 
LPRINT "SLUBHMISSIOHS ";5 
LFRIHT "COMMISSION  ";C 


PRINT AT 5,.8;"PRESS 5 TO SAVE DATA" 


IF IHKE*V'$c2"S" THEN GOTO 176 
SAVE "BE" 


585 GOTO ій 
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Chapter 6 
Utilities 


Below is a desultory collection of routines which we hope you will find 
useful. 


Byte Counting 


Byte counting is probably THE most useful routine you will come 
across while working in 1K. Used during program development, GOTO 
9999 will reveal exactly the amount of space occupied by your program 
so far. It won't tell you if your program will actually RUN in 1K, as it 
measures only the program itself, not the variable or display areas. Its 
function therefore is to test various alternative methods of coding, to 
see which is the most economical. Try it: You may get some surprises, 
and should find yourself writing ‘tighter’ code almost immediately. 


Line 0 


You have seen the expression ‘GOTO 0” already in this book, but have 
you ever actually seen a line number 0? If you can spare the time to key 
in this ‘program,’ you will! Run and list the one line and then try to edit 
or delete your new line number 0! What use is it? Well, apart from 
amazing your friends and impressing people, none whatever in its pres- 
ent form. However, if you use POKE 16510,0 in immediate mode, it will 
always give line number @ to the FIRST line of your program. (The only 
reason it is shown as a program line here is because it has no effect if 
you haven't at least 1 program line to renumber. Note also, that that line 
number must originally be less than 256, or you must POKE 16509,0 as 
well.) 

We can think of at least 2 uses for this: 
1: Once you have laboriously entered a machine code routine into a 
REM statement of a basic program, it can be a little annoying to acci- 
dentally delete this line by a careless entry, so POKE the machine code 
to line 0 and it is perfectly secure. 
2: Why not POKE to line 0 the following: 

0 REM COPYRIGHT B. BLOGGS 1982 
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Now your program is safe from piracy by anyone who doesn't know the 
secret. 


You have already seen variations of the next 3 routines in the DATA 
FILES section. If you were not quite sure what was happening, read on. 
ETTE-COUHTIHG 

3999 PRINT PEEK 16396+256#PEEK 16397-1656 


м 


ІНЕ а 


zoo PORE 15518,0 
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Auto-Run 


Auto-run is a feature of the Timex 1000 which is not available even on 
many more expensive computers! If you append these 3 lines to any of 
your programs, and then SAVE by entering GOTO 9998, subsequent 
LOADing will cause the program to auto-run. If you are very short of 
space, omit line 9997 (if your program stops anyway); reduce the pro- 
gram name to a single character; change line 9999 to ‘RUN.’ 


Chains 


This is a sort of ‘auto-load,’ which, if used in conjunction with AUTO- 
RUN, will enable you to simulate quite long programs on your 1K Timex 
1000 by chaining any number of shorter programs together. You can 
either load each program on a tape directly from the previous one (no 
need in that case for a program name in line 9995) or, as in the exam- 
ple, end each program with an option to re-run or recall a common 
menu, from which any other program may be loaded. (In this case, you 
must either remember to rewind the cassette after each loading, or 
make a cassette on which each program, and the menu, is recorded 
several times.) 


Menu 


A menu, in computer terms, as otherwise, is a list of options available. It 
is a luxury which few 1K programs can afford, but an EXTERNAL menu 
like this one, which offers the first 3 programs in the book, used in con- 
junction with CHAINS and AUTO-RUN, can give a very professional 
touch to your program cassettes. 
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RUTO-RLH 


STüF 
SAVE “PROGRAM HAME" 
GOTO & 


Du iUt ір 
Mer Lit Li 
ірешіп 


ipo C J 


CHRIHS 


CLE 

PRIWT "PRESS M TO БЕТПЕН TO МЕНИ" 
PRIHT "OR Е TO RE-RLUH" 

LET IS=IHEET# 

IF I$-"E" THEH GOTO 8 

IF ІЖ-"М" THEH LOAD "МЕҢИ" 


GOTO 9993 


Mo iugum iim 
Mer tup se em tert un 
Va ute tg 


C CI fe do p rmm ami 


MEHU 


5 LET R£-"CHIMESE HOROSCOPE" 
ig LET B$="MUMEROLOGY" 
15 LET C#="1 CHING" 


г 


28 PRIHT AT Med TELLIHGecc---B*v +H" 
eg PRINT AT g“ GAS 

3H PRINT AT 7,0; "2:9; Bf 

35 PRINT ЯТ 9,0;"3:";C4 

4d PRINT AT 15.6 "ENTER TOUR SELECTION" 

45 LET ІЗ-ІНМКЕТ үз 

әй IF IfZ"1" OR I$2"3" THEN GOTO 45 

SS IF I£-"1" THEN LOAD AF 

ӨЗ IF I£-"z" THEM LORD Ef 

65 IF I#="3" THEN LOAD C$ 
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Machine Code Loader 


A machine code loader can be as simple or as complex as you like. 
This one has been deliberately made as simple as possible so that it 
can be keyed in in a matter of seconds, rather than loaded from tape 
every time it is required. You can, of course, add as many frills as you 
desire once you become seriously involved in machine code 
programming. 

To run, amend line 1 to contain the required number of X's. (Actual- 
ly any character will do.) 

Amend line 10 so that the loop is executed the required number of 
times, i.e., replace LIMIT with 16514 plus the number of X's minus 1. 

Run, entering your code 2 hex digits at a time. 

SAVE ! (Most important, because if the program crashes you will 
have to switch off and start again.) 

Run the m/c program by executing the USR function. The most 
foolproof method is: 

LET DUMMY = USR 16514 
although PRINT USR 16514 or GOTO USR 16514 may be appropriate 
on occasions. 

If you make a mistake during entry, it is usually advisable to start 
again. Once you get used to machine code, however, you will find that 
you can edit many of the bytes directly from the ‘garbage’ which ap- 
pears on screen when you LIST line 1. 


Line Renumbering 


It is a short step from ‘Line 0,’ where we renumbered the first line of a 
program, to a complete routine which renumbers an entire program. 
This is very useful if you want your programs to look neat and tidy, and 
essential if you want to sell or publish them. It is also a handy routine to 
have loaded if you ever find that you have left insufficient room be- 
tween line numbers to add a later amendment. 


NOTES 


As listed, the routine will renumber in steps of 5 (S in line 8960), starting 
with 5 (F in line 8965). You may alter these values as you wish. 

The routine works by scanning the Program Area (addresses 
16509 onwards) looking for the Newline character (118). When this is 
found, the following 2 bytes must contain the next line number, so the 
new value is POKEd in (lines 8990-8985). 
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Line 9005 prevents the routine renumberirg itself, by causing a 
break (list) when line number 8960 is encountered. Note, however, that 
the FIRST new line number is always POKEd in immediately, without 
the program scan, so the routine WILL renumber its own first line if you 
do not have a program entered for it to act on. 

To run, enter GOTO 8960 (or RUN 8960) at any time. When the 
listing appears (eventually), you must amend all GOTO and GOSUB 
commands to suit the new line numbers, and finally delete the routine. 

The major problems with this routine are that it is very slow and it 
takes up a lot of room itself, so it can be used only on very short pro- 
grams. (Also it takes no less than 65 keystrokes to delete it.) There is a 
way around these problems, of course. . .use Machine Code. 


МАСНІНЕ CODE LOADER 


1 REM ХХХ CAS МАМУ AS BYTES ІМ M/C PROGRAM) 
18 FOR A=16514 TO LIMIT 

15 INPUT H$ 

28 POKE A. ¿CODE Н%(12-282Ж16%СОПЕ Н%(22-28 
25 NEXT A 


LIME REHUMBERIHG 


3968 LET 5-5 

8965 LET Е=5 

S276 LET H-16585 

S275 LET P=INT «Ғ/256 

S988 РОКЕ Н.Р 

8985 POKE A+i.F-cP#2563 

S996 LET D=PEEK A 

5995 LET A=A+1 

Seas IF Dé^2118 THEN GOTO 3990 


3685 IF PEER Н-35 THEH GOTO 3826 
Bið LET F=F+5 

18 GOTO 8975 
020 LIST 
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Machine Code Renumbering 


If you are going to enter this routine using the loader on page 51, put 
27 Х'ѕ іп line 1 and set LIMIT to 16540. 

Important: Because this routine is translated directly from the 
previous Basic program, it still searches for line number 9860 (byte 
16h). Therefore, call by entering the basic line: 

8960 LET D = USR 16514 
Do not call in immediate mode, unless you insert a dummy line 8960 
(e.g., REM). (If you can't remember that, 9000 will do just as well, as 
only the high-order byte of the line number is tested.) 

Notice that bytes 01 and 02 commence renumbering at address 
16542, and not 16509 as in the Basic program. This is because the 
routine itself is the first program line; if you make any changes, 
therefore, remember to set these bytes to the start of the SECOND pro- 
gram line. 
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E e 
UE 
еш СШ 


E uo c Oy 63 Сә 
CT ca [T] 


-— tL! 
шешер 


т 
ri 


1 P5 Cu PI CO C E 


= 


ARTE LA 


T 
te 


ra cT Im c m 


BA m pe pode ph en m dn 


T oon cn p m: 


MSC REHUMEERTI HG 


START :LD HL.16542;15T ІНЕ 
LI DE. SLIHE # а 
REMUME: LO BLS ;STEFS OF 5 
STEF  :IHC ТЕ НЕМ НО. TH DE 
DIHz 253 iTO STEP | 
ПЕН ID 2 INSERT 
IHE HL ; НЕН 
LIZHL»?,.E ; ІНЕ HO. 
НАТЕТТ:ІҢС HL NEXT ЕТТЕ 
LII A ¿HL?  ; 
CF 113 siS IT Hee 
ЈЕНЕ 254 IF HOT:HETETT 
IHC HL NEXT ІНЕ HŪ. 
B REAL? j 
СР 35 ;IS IT 85368 
JEHZ 236 IF HüT.REHLME 
RET ; RETLIEH 
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Chapter 7 
(ames 


At last, the section you have all been waiting for. Don't get too excited, 
though; it is our belief that the best source of computer games is in your 
own head, and in any case you will almost certainly get more enjoy- 
ment out of writing games than actually playing them. What we will do 
in this section, then, is show you a few of the many TYPES of computer 
games, with an example of each. After that, if you want to discover the 
next craze to replace Space Invaders, it is up to you. 


Play Your Cards 


Before you rack your brains thinking up new games, search the attic 
and the local toyshop for the hundreds of existing games just crying out 
for computerization. Many have already been done. (If you haven't writ- 
ten a mastermind program yet, you must be the only computer pro- 
grammer who hasn't, so stop reading immediately and get on with it!) 
But there are many more waiting to be ‘discovered.’ 

All you have to do in this program is guess whether the next card 
laid will be higher or lower than the last one. As soon as you make a 
wrong guess, the computer takes its turn, and the winner is determined 
by who has the greatest number of correct guesses. Simple but addic- 
tive: the definition of a good computer game. 

The computer's strategy, such as it is, is to make the logical 
choice, except for the mid-card 8, in which case it chooses randomly 
(line 170). 

Lines 535-540 are yet another pause loop. This time the pause is 
greater when the computer is playing (pseudo-thinking time) as № 0. 
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Fost 


126 
138 
148 
158 
168 
178 
136 
138 
208 
zi 
228 
238 
248 
298 
ze 
400 
410 


420 
200 
ela 
cen 


PLAT TOUR CRRDS 


REM z3456782TJGKR 


LET R$z"" 

GÜSUB 589 

PRINT HT 1,HM; "HIGHER OR LOWER" 

LET I£-INKEV£ 

IF ІФ<>"Н" AND I$<3"L" THEN GOTO 78 


A GOSUB 468 


IF A THEH GOTO Үй 

РЕІНТ HT 1,H; "TOUR SCORE++++";LEN Н%-2 

LET A¢="" 

LET Н-2 

GOSUE See 

LET I#="LOWERe" 

IF X-RHD«6.5 THEN LET I$-"HIGHEKR" 

РЕІНТ I 

GOSUB E35 

GOSUB 588 

GOSUE 4668 

IF A THEH GOTO 166 

PRINT “MY SCOREcee++e" ЖЕН PE 

GOSUB 535 

CLS 

RUH 

LET A=1 

IF £I$zi125z"H" АНІ <=) OR € 
"L" AND 2-7? THEN LET A 

РЕТПЕН 

LET Y=% 

LET H=IHT «ЕМІЖ132 

LET A$=H#+CHRS РЕЕК (16514%52 


-38 PRIHT AT H.G A$ 


= en 
M 


FOR H-1 TO H#¥38+26 


248 HEST A 
958 RETURH 
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Headlines 


Computers are excellent for playing word games. Another program 
which you MUST write for yourself is Hangman, and for the more am- 
bitious there are the ‘pseudo-conversational’ programs. 

Headlines is a variation of another computer classic. It prints 
endless and often amusing rubbish onto your screen. Obviously you 
can modify the strings as you like; obscene versions are fun, but 
definitely not for publication! 


NOTE 


The subroutine at line 90 is not the most efficient way of selecting items 
from a string, but was chosen because it prints slowly, letter by letter, 
and also allows the items to be of varying length. 
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HERDLIHES 


2 LET Ag="<TOPLESSHiADHHUDE+BOR IHG 
CSERTCDERDeFHT e6L ve" 

18 GOSUE ЭЙ 

15 LET AS="+FOTATOHIADMAWEPORP-STARS 
ACTRESS+TEARCHER+Y ICRE.eCRTePRIMHCE*" 

26 GOSUE SH 

әз PRINT ETHE; 

aB LET A#="*5TRIKE+SEX+PEACE+DEATH 
+RACE+SHOCK+BLACK WHITES" 

35 GOSUB Эй 

44 LET R£z"enERMBReIRESCELMOUE eR TOT} 
MCI IECHORRÜUR САНА ePLETIGE €" 


45 GOSUE Эй 
Se FOR Ісі TO 20 


HERT d 
EUH 

LET “=IHT zEHIXZ» 
EUR J=1 TU LEH HE 


a IF AtéJizten THEH GOTO 118 
5 WEST J 

B LET s=K-1 

с IF X2-1 THEN GOTO i835 

а PRINT AFC TS; 


IF Ag¢I+iz="—" THEM RETURN 
LET J=J+i 
GOTO 128 


CP һа кекеш іл a cnc О zn 


Da Qo P 
Ln co L 


pe p pb eS pd bte ee LT CP dis 


58 My Timex Sinclair 1000 


Royalty Check 


This is our contribution to the growing range of educational games. 
(Ugh! Turn immediately to Bowls! Alternatively, don't TELL anyone it is 
supposed to be educational.) 

You have just written a wonderful computer program to control the 
world's economy, solve the mysteries of the universe, or, better still, 
play chess in 1K! Naturally you send it off to “Your World of Practical 
Printing Out Today,' who agree to publish it and pay you so much per 
published page. You are very pleased when you see that your program 
occupies a complete page, but it has been mixed in with a number of 
advertisments, so to work out your commission you must calculate the 
proportion of the page which actually contains your listing. 

The 'text' represents your program, and naturally the ads have 
been blanked out. You have two attempts to work out your payment. 
The first attempt tests your spatial recognition as well as your math, as 
you must estimate (or count, until you get good at this) the ratio of pro- 
gram:ads. 

If your first attempt is wrong, you will be told the number of ads, 
and also whether your guess was high or low, so the second attempt is 
pure mental arithmetic. Remember, however, that you must be accu- 
rate to the nearest penny. 


NOTE 


Line 25 does work, because RND takes a different value each time it is 
called. This is a very economical 'random branch,' as it uses no 
numbers or variables, and it tends to produce a ROUGHLY equal divi- 
sion of text/blanks. 

incidentally, there is about one chance in 10 billion that this pro- 
gram actually will produce a valid machine code program to control the 
world's economy. 
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9 
15 


ROYALTY CHECK 


LET 2-й 

FOR J-8 TO 14 

5 FOR Кей TO 9 

PRINT RT Ј,К; 

IF RHD2RHD THEM GOTO 45 
PRINT "e" 

LET 2=2+1 

GOTO 58 

PRINT СНЕЖ (RHDX15*28) 
NEXT K 

NEXT J 

LET K=INT ZRHD*18)*1 
PRINT 

PRINT "£";K; "PAGE" 
INPUT А 

LET 1-К-КЖ22158 

LET J=INT <J#190+.5 198 
IF A=J THEN GOTO i58 
LET Я%-"Т00 LOWe." 


іа IF R2J THEN LET H$z5 TO 8)="HIGH" 


5 PRINT АФ; " THERE ARE "izi" ADS." 


119 IHPUT A 


= IF A=J THEN GOTO 158 


128 PRINT "НО, £"GJ 
125 CLEAR 


B INPUT A$ 
5 CLS 
8 RUN 
G PRINT "YES" 


5 GOTO 125 | 
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Moving Graphics 


The following games all adopt a different solution to the problem of fit- 
ting a meaningful screen display, a moving graphics routine and a sen- 
sible program, into 1K. 

In BOWLS, the playing area is restricted to just the top 10 lines of 
the screen, which makes perfect sense in the context of the game, and 
leaves plenty ot memory free for everything else. CATCH has possibly 
the least impressive screen display since you first turned the Timex 
1000 on! But, having only 2 characters on screen does mean that they 
can wander over the entire screen area without any problem. SPACE 
RESCUE fills (almost) the entire screen with characters, and they all 
move! How? By using the very concise and economical Timex 1000 
command SCROLL. 


Bowls 


This game is played in much the same way as the 'real' version. Two 
players (you can be both of them if you like) take turns rolling their 
bowls toward the jack. The object is not to hit it, but to land closest to it. 
Player 1 takes bowls 1 and 3; player 2 takes 2 and 4. The winner of 
each 'end' bowls first in the next end. The Timex 1000 places the jack 
for you, to prevent the first player having any advantage. 

If you hit any other bowl, or the jack, this is dispatched to the gutter 
and out of play. Clearly this can often be a good thing to do to your op- 
ponent’s bowls, but if the jack is out of play, the end must be re-played, 
so try to avoid deliberately hitting the jack except as a last resort. Your 
own bowls will land in the gutter if they stray off the sides of the green 
(which is 10 lanes wide: there is 1 lane on each side of the 8 marked 
mats), or off the end (any roll of distance greater than 30). 

Three inputs are required to set up each bowl: Mat number: In the 
game as listed, mat numbers are deleted as they are used to discourage 
continuous bowling from the same mat. However, you still CAN bowl 
from any mat (or indeed from mats 0 or 9, which аге not marked), and 
can easily modify the progam to leave mat numbers on screen. 

Bias: This is the most interesting feature of the game. The bowls 
do not roll in a straight line! Enter any number from minus 5 (severe left 
bias) to 5 (severe right bias). Obviously an entry of zero will not be ac- 
cepted (line 65). 

Distance: You must judge for yourself how far to roll the bowl, and 
also the extent to which the distance of the roll affects the bias. 
Remember that a distance of 30 will reach the end of the screen. Enter- 
ing 'dist' also sets the bowl rolling. After all 4 bowls have been bowled, 
enter any NUMERIC value for the next end. 
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NOTES 


The number zero is used a lot in this program: Hence a variable has 
been set to this value in line 5 to conserve memory. 

The moving graphics routine is in lines 85 (to delete the previous 
bowl position) and 100 (to print the new position). 

A$ (СННФ(К + 157)) is the inverse numbered bowl (1-4). 

Line 95 deals harshly with all bowls which stray out of range. What 
problems arise without this line? (There are 3 possibilities: see if you 
can predict all 3, and then try it.) 


BOWLS 


5 LET 2-й 
18 FOR J=2 TO 8 
15 PRINT J 
‘a МЕЗІ J 
FRIHT ЯТ RHI*XZ,RHIX*X18-20;"," 
FOR kaz TU PI 
РЕІНТ AT 2,2; "МАТЕ" 
IHFUT L 
LET A$=CHRECK+1i579 
PRINT HT LZ; AF 
PRINT AT Z.Z;"BIRS" 
IHPUT E 
IF ABS Боз OF HOT B THEN GOTO Ей 
ҒЕІНТ AT 2,2; "DIST" 
IHFUT 5 
FOR J=2 TO S 
PRINT AT L,Ji"e" 
IF J>.7#5 THEN LET L-B^5«4L 
IF LZ OR L>9 OR J=31 THEN GOTO 116 
PRIHT AT L,J+1:A# 
HEXT J 
HEXT K 
ІНЕШТ E 
CLS 
RUH 


1 
A 


mirc 


=, 


DEAR o CRE D 
Din Gin 


mt 


E mm eee oO E D 


ha Be em CN Cr CA CS CA en cn 


cen ea cn rien ci 
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Catch 


This is the archetypical moving graphics game. You can elaborate on 
the basic routine as much as you like to produce a vast variety of 
games. In this version, the $ character moves randomly about the 
screen, and you must try to catch it in the 'jaws' of your character, the 
letter C. As has become almost a standard for Timex 1000 games, the 
keys 5-8 have been re-defined to control direction of movement (lines 
65 and 75). The POKEs in lines 25 and 30 start the timer, and the 
PEEKs in line 100 read it. The PEEKs in line 85 check the current 
PRINT position (which is immediately to the right of the C, if you 
haven't forgotten the semi-colon in line 40) to see if there is a $ 
character there. Lines 50, 60, 70 and 80 prevent the characters stray- 
ing off screen. Notice that, as there are only 2 characters on screen, the 
CLS function is used to avoid 'overprinting' the characters with blanks, 
as in the previous program. 


Space Rescue 


Well, we had to include a space game somewhere! In this one, you 
have to rescue the captives (.) from their guards (*). You score 1 point 
for each rescue, but lose 5 points every time you run into a guard (at 
which point the action pauses momentarily for your score to be 
displayed). By using SCROLL, the only character which actually has to 
be moved by the program is your ship (X). See lines 20, 25 and 35. 
(Note that there is no routine to prevent you crashing off screen.) In this 
program, line 40 sets the PRINT position immediately BELOW the X, 
and line 45 looks at what is in this position, as before. 

The string in line 3 is the arrangement of captives and guards, and 
you can alter this to make the game easier or harder, as you like. We 
found the arrangement as shown hard enough, and rarely managed to 
obtain a positive score! Try omitting the inner 2 asterisks at first. 
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a LET Ael 


18 
15 


Em Lt Lt 
ia Ch ch 
e 


ы pio Re ра 
[ce e 


ca Ln eu cn 


LET Е=19 
LET =A 
LET т=28 
FOKE 1643 = 
PORE 1643 
РЕІНТ AT A 
РЕІНТ E 
LET A=At+i-2 
LET R-zR-cCB« 
LET BzB41-z 
LET BE-B*CEZ 


LET N=X+¢ INKEWS="6" 3- 


LET H=Heche 


2 
ata 


oy J AE 
Se CRA. 
LA CASS 
aec RATS 

H»-5E 


а-а 


e 
212 
313 
15 


-CIMKEV £z" 7") 


LET YaW+¢ INKEVS- "B" 3-1 INKEYS="5") 


LET syle cus 


IF PEEK “PEEK 163984256 PEEK 
13 THEH GOTO 188 


ELS 
GOTO 28 
PRINT AT 


+2564PEEK 


CLEAR 
IHPUT sE 
ELS 

RUH 


73-77 


g.8; IHT 


si: 


сізіп.Е5-«РЕЕК 
іБал?амерз; "SECONDS" 


SPRCE RESCUE 


1 LET "=15 


G3 PO pa Li ОК 


LET $z-ü 
FRIHT AT 17.RHIX*38;"x*x,sx*x*" 


PRINT HT Э, 


je Wet 


163992 


16435 


LET тет INKEY#="8" )-CINKEY$="5") 


SCROLL 


PRIHT AT E 


FEIHT TAE ' 
LET Ш-РЕЕК 
LET 5 5% 


PRIHT 5 
GOTO 3 


be Wh 
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Code Maker/Code Breaker 


This program (Code Maker) will convert any message you enter into an 
unbreakable code. Unbreakable, that is, unless the recipient of your 
message uses the second program, Code Breaker. 

To use the programs, first enter a number in the range of 1 to 
65535, which will act as the SEED for the RAND function (line 15). After 
you have entered your message, the coded version will appear on the 
screen, together with the seed number. (If you want to make your 
message totally secure, even from other people with a copy of this 
book, delete line 35 of Code Maker, so that the seed number will not ap- 
pear.) If you have a printer, simply enter COPY, and pass the message 
on to a friend. If you do not have a printer, of course, you must copy the 
screen display manually. 

Code Breaker works in exactly the same way; simply enter the 
seed number which precedes the text (or which has been agreed upon 
by you and the sender privately), and enter the coded message. 


NOTES 


Several of the programs in this book have used the RAND function, but 
none, so far, have used RAND X (where X is a KNOWN number in the 
range of 1 to 65535). 

The Timex 1000's random number generator does NOT produce 
purely random numbers, but selects numbers from a pre-defined se- 
quence. The purpose of the RAND function is to fix the starting point 
along this sequence. RAND 0, or simply RAND, will select an indeter- 
minate starting point, but RAND followed by any number will select a 
SPECIFIC point, so that although the numbers produced are still ‘ran- 
dom' (in the sense that they have no apparent relationship to each 
other), the same sequence of numbers will be produced each time the 
program is used. 

In Code Maker, each letter of your message is replaced by a 'ran- 
dom' letter (line 45). However, this 'randomness' depends on the 
RAND seed, and provided that the same seed is used in Code Breaker, 
the original message can be obtained. 

The 2 programs are so similar that you need not enter both of them 
from scratch. Judicious use of the EDIT key can save you a lot of typ- 
ing. To convert Code Maker to Code Breaker: 

Delete line 35 

EDIT lines 45, 50 and 55 
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CODE MAKER 


= PRINT "ENTER CODE HUMBER" 
18 ІМРИТ 5 

15 RAND X 

28 PRINT "ENTER MESSAGE" 

25 INPUT ME 

SA CLS 

35 PRINT HiCHRE 0; 

48 FOR J=i TO LEH M$ 

45 LET ASCODE ME£OIG-IMT ZRHIBZÉD 
=й IF Hcz6 THEM LET A= 

S5 IF ated THEM LET Я=Я-26 


COTE BREAKER 


= PRINT “ENTER CODE HUMBER" 
іп IHPLUT X 

15 FAHD x 

ой PRINT "ENTER MESSAGE" 

zu IHPUT rix 

за СЕБ 

48 FOR Iz1 TO LEN МЖ 

45 LET A=CODE М%412-ІНТ ZRHIMZGD 
58 IF Aci THEN LET H--26 

55 IF A<38 THEN LET A=A+26 
ый PRINT СНЕЖ НЫН; 

6S HEXT J 
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Guillotine 


This is an early computer game, given a new lease on life by the incor- 
poration of a graphics display. 

The computer thinks of a number іп the range 1 of to 100, and you 
have 6 guesses in which to identify the number. After each guess, the 
computer indicates whether its number is higher or lower than your 
entry. 

The graphic display shows an executioner who raises the 
guillotine blade one notch with each incorrect guess. After the sixth 
wrong guess, the blade will fall, and your head will roll across the 
screen! 


NOTES 


The graphics in this game are quite complex, so | have used a new 
symbol (#) to indicate an INVERSE SPACE. Refer to the listing conven- 
tions to make sure you enter the other PRINT lines correctly. 

Because the graphics occupy so much of the program, the 'feed- 
back' after each guess is restricted to a single 'greater than' or 'less 
than' symbol (lines 110—120). After a correct guess, or an 'execution,' 
the mystery number is revealed. Press ‘Newline’ for another game. 
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GUILLOTIHE 


5 LET Н-ІНТ CRHDKIGG +1 
ій FOR F-H.H TO 12 
15 PRINT "Жексен" 
zB HEXT F 
25 PRIHT'"d4BERHS-TZ1ZÉ1" 
PRINT AT 8,7;"TGS51" 
FRINT TAE 6: "TSHHST" 
FEINT TRE &;"TrHGl1Tt" 
РЕІНТ "%-П-йее-ізет" 
FOR Fz-5 TO F 
FRIHT AT ій, а; "^^" 
PRINT ЯТ Е, яға; "=" 
PRINT "#---" 
PRINT "dee" 
FRIMT "ie" 
PRINT "Heee" 
IF F2H-H THEH GOTO 125 
PRINT "ge" 
PRINT AT 18,5;"-" 
IHFUT G 
IF Н-б THEH GOTO 158 
LET Ag=">" 
IF GA THEH LET A#="<" 
РЕІНТ ТАЕ 12; AF 


€ 
іші 


ЕЕЕ ЕТ 115 Ен 
ІНРИТ AF 

CLS 

КИН 
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Bowling 


| am absolutely hopeless at bowling! Every time | let go of the ball, | just 
know it is heading straight for the gutter. How | wish | could run down 
the lane and adjust its direction. . . . 

That is precisely what you CAN do in this game, but that still does 
not make it any easier! 

The balls are released automatically from the left of the screen, 
and head towards the pins on the right. Use keys “6” and “7” to con- 
trol the direction of the balls. When you hit a pin, it will disappear from 
the screen, but it will not disturb any of the others, so you must actually 
hit all 10 pins. Therefore you are allowed 4 bowls per 'frame'—you will 
need all 4 if you are to score 10 points. 

After the fourth bowl, press 'Newline' for the next frame. 


NOTES 


Enter line 10 carefully. These are the PLOT coordinates (in CODE form) 
of the 10 pins. 

Lines 20 to 50 PLOT the pins on screen. Notice that the pins do 
NOT form a perfect triangle; no pin is directly behind any other. Also, no 
pin is in line with the starting position of the ball, so you MUST use the 
direction keys to score. 
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BOWLING 


LET RHi-"Hzz.0;Mz^-k-HDOO0SETMÉÍ" 
FOR J=i TO 1H 

PLOT CODE Aiit. CODE Aces 
LET AS=H#SS TU à 

НЕТ J 


i 
AT 6. Gi" POHL: "J 
H 


FOR x-i18 TO 62 

LET YSY+CIHKEY$="F" AMD Vwiqzo-2IHKETÉ-U"G" 

AHE V5 

PLOT z.'T 

UHPLOT н.т 

HEST s 

HERT J 

INPUT AF 

F:LIH 
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Missile Attack 


This is a VERY fast-action moving graphics game. You operate the 
laser gun on the left of the screen, and the enemy missiles fly rapidly 
towards you from the right. 

Use keys “6” and “7” to move your laser up and down, and ''8" to 
fire. 

The object of the game is to shoot down as many missiles as possi- 
ble before either 10 missiles escape being shot down or a single missile 
manages to hit your laser gun. 

A reminder of the current score is flashed on the screen every time 
you score a hit. The first figure shown is your total score, and the second 
is the the number of missiles which have passed you successfully. 


NOTES 


Line 50 is the 'laser beam.' Notice that it does not extend right across 
the screen, so you must wait for missiles to come into range. To enter 
line 50, use 10 ‘exponentiation symbols’ (* *), not asterisks. (The result 
is the same, but the exponentiation symbols use less memory). 

Line 35 skips the INKEY$ routine when you are not pressing any 
key. Remove this line if you want to slow the game down slightly. 
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IF F= AHD Sei THEM GüTO 85 
LET ato 
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IF L2-i1&8 THEN GOTO 9 
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LET Ss=s+1 
PRINT НТ Яуға "*" .L 
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Introduction To Part II 


The 16K RAM-pack is an invaluable add-on to either the Timex 1000 or 
Sinclair ZX81, if it is used wisely. Too many “16К” programs have been 
published which are really nothing more than poorly written 1K or 2K pro- 
grams that need the RAM-pack because the writer has not bothered to 
squeeze them into the standard memory space. 

This book is one of the very few which is dedicated exclusively to REAL 
16K programs. If you want programs which you can key in and run in a few 
minutes, then look elsewhere! 

A few of the programs have required 'Americanization' (although they 
were all written in England), and all will work on either Timex or Sinclair com- 
puters. ‘Coin Analysis’ has, of course, been adapted to handle dollars and 
cents instead of the original pounds and pence, but if you want to play ‘Pon- 
toon,' you must still gamble in pounds. (We have casinos in England, too, 
you know!) 

Roger Valentine 
London, Nov. 1982 
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Listing Conventions 


The following conventions have been used throughout this section. Please 
study them carefully before keying in the programs. 


| = The letter | 

1 = Thenumber one 

О = The letter O 

0 = The number zero 

^ = The quote image (SHIFT Q) 

= Space (WHERE ESSENTIAL AND NOT OBVIOUS) 


# = Inverse space 
1 = All items BETWEEN 2 up-arrows are to be entered in 


GRAPHICS 
UNDERLINING = All underlined items are to be entered in INVERSE 


Note: These conventions are as used in Part |, except for the # character 
meaning inverse space. 
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Chapter 8 
Graphics Programs 


Tarot 


Tarot cards are also known as ‘ће devil's picture book,’ and a picture 
book is precisely what this program is. Twenty-two different pictures 
are held in memory and selected at random for display. 

Here immediately is a problem and one which will come as a sur- 
prise for those of you who thought that buying a 16K RAM-pack would 
forever abolish the dreaded error-code 4 (out-of-memory). 

A screen-full of graphics occupies 22x32 = 704 bytes, so to hold 
22 alternative displays would require 22x704 bytes, which is over 15K! 
Obviously a shorthand method of defining graphics is required. One 
such method would be to use the 'Data Print' technique explained in 
Part |. This would compress each screen-full of graphics into a string 
of, on average, 100—150 characters in length, so if you want to create a 
‘picture book’ with over 100 screen ‘pages,’ this would be the method 
to use. 

However, any intricate method of compressing data is going to re- 
quire a correspondingly intricate method of de-coding that data into a 
display, and 'Data Print' has the disadvantage that it takes a long time 
to actually produce each picture. Therefore for ‘Tarot,’ we have used a 
totally different technique, and the program is really 2 programs in 1, as 
the routine for creating the graphics is actually a free-standing routine 
which you may like to incorporate into other programs of your own. For 
that reason, the routine is described in full, but first a description of 
"Tarot' itself. 

Lines 30—61 set up the array of card names. Don't try to save time 
by entering these in immediate mode, as they are manipulated during 
the course of the program, so must be re-set for each deal (see line 
360). Lines 110—150 are the standard 'input-verification routine,' which 
you will see used time and time again. (Much better than ‘INPUT T'.) 

Line 165 is a POKE worth memorizing: it increases the screen 
display by 2 lines, so that ‘PRINT AT 23,..... ' becomes valid. (Ad- 
dress 16418 contains the number of lines in the lower part of the 
screen. Normally it contains '2,' allowing room for the INPUT prompt 
and the INPUT itself, but you can safely change it to 0 PROVIDED that 
you change it back to 2 before any INPUT is required.) 
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1 


ій БЕН ТНЕПТ 

гй oe 1898 

oa 

EI 

41 

42 LE MIHPERATRICE i 
43 LET Ci np ЕМРЕБЕШЕ: 


44 LET t#c55="LE FRFE:" 
=". AMOUREUX 
"LE GHHETIBT:" 
aa: JUSTICE: Y 
=". ERMITE:" 
LET се үйзе- ІН ROWE ПЕ FÜüRTLIHE : " 
LET C$&s115-"LHRH FORCE:" 
LET C£$riz»-"LE FEHDU:" 
LET C$cls»-"LH MORT" 
LET c#¢ido="TENFERAHCE : " 
LET C#c1i5>="LE DIABLE :" 
CCIE = "LA MAISON ПЕ ПЕШ: " 
LET C$46lr23-"L.ETUILE--" 
LET C£$£185-"LH LUME:" 
i SOLEIL :" 
uec JUGEHEHT : " 
Ži j="LE MÜHDE:" 
LET C£izzo-"LE MAT:” 
tS 
PRINT TRE іг; TAROT": AT 3.3;"vOLl MAY SELECT UF 
CARDE": AT 5.8;"üF ae MAJOR АЕСАЯНА. " 
FORE 16418,2 
FEINT AT ін, й; "HOW MAHT CARDS DO "Obl WANT?" 
ІНЕШТ HE 
IF Hé="" THEH GOTO 1148 
FOF J=1 TO ЕН Hx 
IF НТЛ" OR НЕЛЯ" THEN GOTO 11H 
НЕХТ J 
LET T=VAL HE 
IF Т>22 THEM GOSUE 256 
IF T<i THEH GOTO 166 
DIN Pets 
FORE 16415. 
FOR J=1 TO T 
PRINT НТ 23.5; "PRESS C TO DEAL A CARD" 
IF ІНКЕТЖС>"С" THEN GOTO 185 
LET C=INT :RHIXZz3-1 
ІР CODE i CEEC. »15=8 THEN GOTO 134 


ісе dr UD OC TET CD IG Pa mm mm ie on 
[es 
m 
25 


(ЗІ 
E 


CU LALA ON CR CR NN En EN En 


= 
m r 


И " P "atr 
ma cm p oc m Ca ca Cn mm ca 


HOP C CD CR CN fe Di ph m em mm m 


i LN i 


LG 


mu tpm n 
M 
Au n 


кА 


Eg 


ГАРУ Po P feme am pa pa pa ра Rex pe pee Re». bé pa pa pu ua 


1 AE aii d B: A ica 
5H 
үш 


288 PRINT AT 23.2;:"PRESS L TO LIST YOUR CARDS" 
28 IF IMKET$«2"L" ТНЕН GOTO 290 
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Lines 170—270 select the cards. As a card is used, a blank is in- 
serted in front of its name (line 220) to signify this. This is clearly an inef- 
ficient way of avoiding duplication, and would NOT be recommended if 
a large number of cards were to be dealt. However, for 22 (or fewer) 
cards it does not cause any noticeable delay. 

Subroutine 600 prints the cards, with lines 700—760 printing the 
name in inverse lettering. Subroutine 800 is trivial, but it is a nice form 
of 'idiot-proofing' which lets the user KNOW he is an idiot! 


Graphics Entry Routine 


Line 1000 sets up an array of the 22 pictures, each 20 lines deep (not 22 
as the bottom 2 lines are reserved for the title of the picture) and 24 
characters long. This would seem to restrict the pictures to the 24 left- 
most columns of the screen, but in fact the first character of each string 
is a TAB number (0-9; line 1035 ensures this), so that each picture can 
spread across the entire screen, provided that any line requiring 
graphics at the right of the screen does not require any on the left. This 
may sound a little complicated, but by the time you have entered the 22 
pictures for ‘Tarot,’ you will see how well it works. It actually saves 
about 3.5K; try changing line 1000 to DIM P$(22, 20, 32) and see what 
happens! 

Line 1030 is an 'ultra-shorthand' for entering a blank line: just 
press newline. The routine at 2000 is called by line 1035 whenever a 
line does not begin with a tab number. Usually line 2000 simply rejects 
the input and returns to line 1025 for another. However, if you enter X, 
the previous screen-line will be deleted, to make error correction sim- 
ple (lines 2010—2015). 

Line 1040 prints each line of the picture as you go along, and lines 
1050—1080 give you the option to reject the entire picture when it is 
complete. 


RUNNING INSTRUCTIONS 


If you were thinking that ‘Tarot’ was a nice short program which you 
could key in and run in a few minutes, forget it! Just as the program was 
written in 2 sections, running it involves 2 separate processes as well. 
Before you call up all those pretty graphics with the main program, you 
must first enter them, and this, | am afraid, is a longer job than typing 
the program itself! Don't worry, though, the results are well worth the ef- 
fort, so arm yourself with a strong pot of coffee and off you go.... (You 
only have to do this once, by the way, not every time you use the 
program.) 
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TAROT (Continued) 


CLS 

FOR J=1 TO T 

PRINT АТ J-1,8;J;TRB 4;C$CPCJ2) 

MEXT J 

PRINT AT 23,0; "РКЕЅЗ N/L TO DEAL AGAIN" 
IF_INKEY$<>CHR$ 118 THEN GOTO 350 

GOTO 48 

CLS 

FOR K=1 TO 20 

PRINT AT K-1,VAL РФ<С,К,192Р%<6,К.2 TO ) 
NEXT K 

LET R$-"" 

FOR K-2 TO 20 


8 IF С%(С,Ко-":" THEN GOTO 750 


LET Н%-Н%%СНЕ% (CODE (С%(С,К22%128; 

NEAT K 

LET C$éC,Ko="e" 

PRINT RT 21,.¢32-LEN RH$5/2;R$ 

RETURN 

PRINT AT 10,0; "¢«++THERE ARE ONLY 22 CARDS" 
FOR J-1 TO 166 

НЕХТ J 


В LET Т-й 


RETURN 

DIM Р%(22,20,242 

FOR J=1 TO 22 

CLS 

PRINT AT 21,8; "ENTER GRAPHIC HO.";J 
Й FOR K-1 TO га 

INPUT РЈ, К> 

IF P$CJ,K,15z"e" THEN LET Р+7,Кә= "а" 

IF P$CJ,K.15«"8" OR P$XJ,K,152"59" THEN GOTO 2000 
PRINT RT K-1,VAL P$CJ,K,15;P$CJ,K,2 TO > 
НЕХТ K 
B PRINT AT 21,0; "O0.K. Fées" 
Ø IF INKEYS="N" THEN GOTO 1818 
IF INKEY$<>""" THEN GOTO 1876 


298 NEXT J 
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ісч 


8 CLS 

3 PRINT "NOW SAVE ^TRROT^" 

PRINT AT 2,0;" (PRESS 8 WHEN TAPE 15 RUNNING)" 
IF INKEY$<>"5" THEN GOTO 1138 

SAVE "TAROT" 

RANT 

GOTO 38 

IF K=1 OR P$CI,K,1042"X" THEN GOTO 1925 
LET K-K-1 

PRINT AT К-1,8; "eces 

GOTO 1425 
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NOTES 


Once you have typed in the program, please SAVE a copy on tape 
before RUNning. You are strongly urged to do this ALWAYS, and it is 
particularly important with programs using POKE statements, as a sim- 
ple mistake could wipe out the entire program. 

When you RUN ‘Tarot’ for the first time, you will be led straight into 
the graphics entry routine. The 22 pictures are all listed below. Refer to 
the listing conventions (page 74) if you have any problems understand- 
ing these rather cryptic lines. Believe it or not, this was the LEAST 
confusing method we could devise for describing Timex 1000 graphics 
in print. (You should have seen some of the ideas we rejected!) Take 
care with the spaces and inverse spaces where they occur within 
graphic strings, and notice also that some cards (L'Empereur and 
Justice) use ‘normal’ Timex 1000 characters like “O” and “:” as well 
as graphics characters. 

Actually this process is a lot simpler than it appears from the 
graphics listings. You will see the pictures being compiled on screen 
line by line, so any errors will be easy to spot. Some of the cards are pic- 
tured in Appendix 1 (pages 162-163) so you can see what the end re- 
sults should look like. (You may, of course, custom design your own 
tarot graphics. Save your tape of the 'bare' program so that you can 
design as many different sets of cards as you like.) 

When you have entered all 22 pictures, the 'SAVE' routine will be 
called automatically. Make sure that your tape is long enough—we nor- 
mally use C30 tapes for 16K programs containing large amount of data. 
The program will then auto-run each time it is loaded, and the graphics 
will be retained. DO NOT press BREAK and then RUN or CLEAR, or 
you will lose the graphics (although they will be retained on the tape, of 
course, SO you only have to re-load). If you do press BREAK, then the 
safe way to re-start the program is by entering ‘GOTO 40.” 
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T TRHHHHHIHHEEHHHHSESGIGHS T 


j:L.Ernmmereur 


Ә-<--<---<--е TIELEGE T 
Ii TeÀDBGGHHHSEET 
33-460 TU THHHZHHHS t 
SOSREUHHH TU THHHZHHS t 
Si HHHEHEHHH fU THHHZ4E T 
SeTEHZRRHFHH TU THHHG T 
See Ts TRHHH TO THHS f 
SeceTDe]TSHRFH TO THST 
Beq2lc——SESBEHEB T 

Se fol RSH THRESH T 
Fhe TIHCSHEHHTHHE SORES T 
SecTEeLHHERBERERRT HRRHES t 
Se TOPPHEHHHESHE тына Т 
STSRHHHHHHEH TT ORHL Т 
ERpLCIIIIIII JN 
EEEIIIIISR 

rYOTTOHAHHHRE T 

TT2PSRTIT 
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a Le Fare 

Se ThH#6 t 

S TOHHHH te,’ 

Y T3ÉOHHHHHMH t 

Е TSGHHHHHHHH e*-————33:4 T 

é tTT?ETTETTETLHe———-RREE Т 

& TozEczEcZEeC-5e-——— T 

6 HIGGGGGGGGGGHeoMese T 

= ННННННННННН#+++1 e ez T 
4T3TRTTRTTRPPRY?SH4664G6T 
dTReRmlemlieelekRil1emneledie€-t 
STLHHHEP TPP eer eee eee Т 
STS##eS Tr 4eT i Reel est 


4 THEE CSHFEOHUR HIE eT 
ӘННЕН С T 


?:Le Chariot 


Dee eee fd ed T 
9664-64-466-6 708605 7 
Fete] TERTER Т 
Gee] eee THT 
Dee eee THREE T 
Feet TORR HOST 

6 He ee 5 Or eS 1 
6 THNOHE66 << SHHHS HHS T 
6 THRRESHHW4 63% 5 50-824 T 
6 1TS52E1«€84HHIIZIHHHEC-S e---55 t 
6 T5 ——---01HHEIGSHBHES E 34-5 T 
6 THe OHHH HHH HC 7 
& TH+ SE CHHHSHH SERGE 1 t 
6 TASES ORFS Т 
PTS GhÉSHEST 

T TSS 1 eHHHESH COT 

6 185-8 -84 ——-81HHECCG T 

6 T95cucRtsec-c--ou45T 

6 T25¢2E eee HHH T 

Y TRH 1S CHET 


È: La. Amoureux 


newline 
new Lire 
neuline 
rew lire 
VUA incur SE © be PE Ÿ 


STTr ——3664* 7 43G8GTe————-5 T 
4 TO GI eTGOHHGA e—-T T 
4Tae——-?FFFiPZFFFTee———z4T 
4131 ANSE Pres t 
aTrRe-—-S3SSHERECPSeO6S TT 
eT24e3e-13131*'3e—-—-,e-;,)T 

T ter leer ieset 

newline 

пеш line 

nem Lire 

newline 


&:La Justice 


new line 

Fete Hl T 

SHHRHHRHHHHHRHHHHE 
с 466—646: 


PROD PM 
2VIII€e:cccccceee-- 
B: db ee MM 


ha 03 02 03 03 00 


QU dx Cip eH | 

E TRHHHE ^9 --RiBEBE T 
T TRE SERRE T 
8T? eee here T 


O-T64HHHHHHHHHHIG T 
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3:L.Ermite 


new line 
Dé TIT 


Sra T 
Fee THREES T 

Fe TSHHHHHES Т 
Jee TSRHHHRHHES Т 
Je T33HHEHHHEEHER A T 
SUTZHHHHHBHBHBBHES T 
Jepe tiene t 
aep tish t 
SHOE LaTi bus Т 
Sees TER les t 
DeteetSeHHeseetT 
qa UE TS HE Se t 
She ta HH See t 
ARTE HET 
Se4e-T8eHHesee t 
Seg e-TeeHHes eet 
зей 


11:1а Force 


new line 
eee eee TT 4 

2 c—————————9T71174T 
Beet tT eet 

Dee eee TE Т 

Fete 1335 Т 

Bee Ty yy eee PET 

8 T6666 yy 1 eee T 


STREH ISI 1 MM -5T 


9 T23HET IV eT 
STREETS yyy 6637667 t 
e T3v s ?24HHIHee6 S3 LIT 
SASTTITORHHHHHHRAUT 
FAST SHRHHHRRRRES Т 

7T TG TTHHARRTTHHHRAT 

S TZHESHHHE? OS iHBER T 
2TH52347e—--oSH BRE HEU T 
STHOSH HEREC THEW T 
абай HH HE Т 

7 T30E641«c—c—-—-3041-6üE t 


18:La Roue de Fortune 


2—c——-TS?TRE?6T 
934+71374+85+674Т 
3«73744+554+37471 
Getsezdessesiest 
aTee--2485531ecc-5T 
BTT él cer Tt 
ELLIIIIIIILIIII 
9154447867446 
S198 e——-Te85evecc5T 
aeT3cTec-85ecs eot 
SeTSTe—--85ecc)5 1 
aect)e--35e-Tt 
Dee Trees Т 
Det TRE? tT 


344641851 


Dt 


ac———-TTSS5YT 


SiomppHHEWHHER 


un 


12:Le Fendu 


newline 
FPRHRHRHHHHHHHH 
Эй: 166 TH 
9dtec—-—--—--185 TH 
apee TSS tech 
FHA 19565 TH 
DH THHHHES Te 
94 ———-1SE85 Tec 
Bite—-—-T19585 Te H 
94t ———-T8HSs5 14-6 
Ipa toH Tec 
SAIL eee eH HHH HH 
ЭТО te 
petii RRHH Te 
SHO TOSHHHHSS Te 
SHH ТОВЕНЕ 1 Tee 
Hee th te 
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13:La Mort 


neuline 

9s t3T7777Yő t 
SMT TL Lee ler t 
Be TT eee t 
"Lu T 

5 ee eee oe eo t 
SSS Peete t 
PTS d e—————-——-23———T 
y TSlIc4'Ve———THdez4ecet 
PISE ere sé lent 
PASESRI Eh less i 
STi e eO3ec?ee31T 
ST3Seresdikesst4e-—-TT 
&TS4e1eccc-1z246e--5t 


a c TRE! " т Y тот eT t 
Dee Tee À 
Dee PSE 
aecT2qeeceilesst 
dee T2666 cc-6 T 


15:Le Diable 


new lire 

TBE eee ee t 

T TEOHHHHL НВ ЦЕ T 
воин оты 


D TSHÉEFRRHAHHISHRHHETERES T 
STURE RH LITE UT 
ЕНЕР ВЕ 244 
S THIS 96654-00661 ен Т 
nTSEeeec4Eez421e841e5t 
TE HET TE HT 


Dee tidgeesces it 
Dee Terre T 


See POO À 


аа TTS t 


See fy Tt: 


14: Temperance 


Dé HES HHH SS T 
eec PSHE: HHEHES T 
ex TIDASHH SHSHIS T 
3e TIIHRRRHREHE? : SHHRHRS T 
RHSee31ezdHd4725T 
EE eM 

1 


іс-шара 


stes 
21230004377 
РНН 657 
E TEHHHHHS31 t 
DEN À 

7 TEHHHS T 
ЗАН T 


DH IM t 
Sece-TsEREZTZdee-TT 
Dé USA IT CAT 


Dé TI S ed m ES T 


Six HHEHHSHE t 
Ze НЕННЯ S T 
а-нан TS E 
z———HEHSERHSE t 
Sie TEHSEHH SE HE T 
So TIHHHHHH en 
Fee TSHHHEHHHHES Т 
D THHHH СНЕННЯ t 
aec ER T 
DE THAT HHH CE T 
сане T 
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1?:L.Etoile 


2%5-%-Ж 
PRE 


PAP Le A is EN Fi оз 4 


new Lire 
Dettes t 

Se plete eee si Tt 
aq4eryejcecneilTeat 
StedeyeyeosiTesit 
eTZ4z4eve-l1l11Tesi131T 
STdz4d24eeryeesl3lzt 
дежрігрізуе-е--егізізі? 
Etred431er4sre6essiTt 
2h Kee ee TS Lethe ese eT t 
y Té66See2 lee ee ese t 
ad38ece-ieedee-aT 
aT31iz4eeclzececesiz4T 
STli3siz4dez6e6lesiz4zt 
tiai igemed t 


ati313147667e4v242T 


13151731444Ү24Ү241 
T31T31Te524'24'7 t 
TiT31Tee5e24'v241t 
1T2e31Teee5ec24'v2T 


D ua tgo 


1 


ізсіз Lune 


ecce TOE BHI tT 


Fee TSP RS T 


new line | 
FAYI Ilmet 


ua 


itgi Tet 
ceTryeccieccrrTt 
mecTEREHCHEREHCRE T 
S47 SHAT SI t 
Sete THR ET IT 
See Teri ТТГ Т 
See Tsar TSS 764 T 
See Toe SHES est 


D igi Lt 


D 
t 
-% 
Г 
5 


new Line 


ZA: Le Jusemert 


FAN HOHE 1 Т 
Fete TOHHEH I t 


Fee TURES T 

Jee TSOHHE 1 Т 
Э<-ТЕЗЯЗЕНННЯННН T 

Y TÉCAHHHET CHRRRRRB T 

1 TZGGOJHHHEHBEI <--ААА#ААА Т 
І TSERHHRHHHSE 1 Hip T 
= THUR HHEHHE RAR AAA t 


ЗЭЛЕЖИЕЯЖ5е-----НННЯННН T 
4TRHWRES T 

a TRAE T 

eTrsT 
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zl:Le Mande 


Sececmqbes4T 
Hee T eec 
ae 


a Wei Esai ИЕА 
ETTAON2Ne See Teese T ADMIS À 


ets Spone tde SSRS 
ets RSS eee tee SSERHSS T 
FODPHRHT Hee ee HET Т 
OTHE ee ETAT 

2 PSE eT HHS Tt 
See TS ST 

eek iki 

Sens Tetra T 

сема ете 4 

пеш line 


Un-numkered':le mat 


newline 

newline 

rew line 
SECRET PTT 
сона He tT 
ОТВЕТ —————4 T 
ERINLIIIIII A t 

T TERHEFRFAHEH SH TN T 
PICREESHARHES i TANT 
os NES SIT 


Set##IELTEZ#S t 
senvezselesst 
Bethea eds t 
Bec TR eaaet 
ce-TRenvrhel t 
De per red À 
Dee TE ee TE T 

a T65EUAT 73H55 + 


E TGHEHHEHHERHEH CHER ННН T 
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Graphics 


If | were to mention the words 'sketch-pad program,' | am sure that 
many readers would skip over this section and go on to something 
more original. But ‘re-inventing the wheel’ is not always as fruitless a 
task as it is made out to be, and sometimes it is possible to find a new 
and improved solution to an old problem by approaching it from a new 
angle. 

There are 2 aspects to screen drawing; positioning the cursor and 
defining the actual graphic character to be ‘drawn.’ Most sketch-pad 
programs give top priority to the first of these, but make changing the 
character difficult or even impossible. Consequently they tend to pro- 
duce 'line drawings' which fail to make the most of the Timex 1000's 
already limited graphic capabilities. This program gives equal priority 
to cursor position and character changes, by operating in 4 totally 
distinct ‘modes’ (or 5, if you include the SAVE option). 

In CONTROL mode, a flashing X cursor can be moved about the 
screen at will using the ‘arrow’ keys 5 to 8. To switch to 1 of the З DRAW 
modes, just touch the appropriate key; G for Graphics, N for Normal 
(alphanumeric) characters, or R for Reverse characters. (Also, 
because key 9 says ‘GRAPHICS’ on it, | have allowed this to be used as 
well as G to enter Graphics mode.) This causes a different flashing cur- 
sor to appear, and the required characters can then be drawn directly 
from the keyboard, without using the Shift key. In all 3 DRAW modes, 
the cursor will move 1 position to the right after each character is 
drawn, and will ‘wrap around’ the right-hand side of the screen to ap- 
pear on the left of the next line. (Actually the ‘wrap around’ is 'con- 
tinuous,' which means that if the cursor is taken off the bottom right of 
the screen, it will appear at the top left. Note that wrap around only 
occurs in DRAW modes; in CONTROL mode the cursor is restricted to 
the screen boundaries. 

To change to a different character set, or to move the cursor to 
another position in CONTROL mode, press Newline, and the X cursor 
will reappear. 

A complete description of all 5 modes follows below: 


CONTROL MODE 


Flashing X cursor: Keys 5, 6, 7, 8 (direction), S, G, R, N and ‘Graphics’ 
(9) are enabled. The cursor will travel through existing characters 
without deleting them. 
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LET P-8 
LET Q-8 
LET X=P 
LET =Q 
PRINT RT У, 
PRINT "x" 
LET P-X 

LET @=Y 

LET A$=INK 
Ag="5" 
A=" e u 
Я+= "Е " 
prz" Ts 
Ag="9" 
H$-"R" 
A$="N" 
A= "= n 


a GOTO 44 


LET ü-ü 

IF INKEY$= 
PRINT RT Т 
LET R$-IHK 


IF ASS" 


GÜSUEB 1444 
PRINT RT = 
GOTO See 


LET П-й 
IF INKET+= 


LET R$-IHK 


676 LET A$=CHR 


694 РБІНТ AT Y 
GOTO 626 

4 REM NORMAL 
LET ü-ü 

IF IHKE*£$- 
FEINT AT Y 
LET ASIHE 


REM REVERS 


& PRINT AT Vo: 


GRAPHICS 


42. 
%; 


Ет% 

ТНЕМ LET 
THEN LET 
THEN LET 
THEH LET 
OR R$-"G" 
THEN GüTü 
THEN GOTO 


THEN GOTO 2 
FRINT RT owi CHRE O 


REM GRAPHICS 


"3" OR IN 
ЛЫСЫ 
EY$ 


IF A$=CHR$ 118 THEN GOTO 
IF А$=СНЕ$ 119 OR A$="0" 


OR R$2"Z" 


oni CHE O 
E 
"Е" 


uae 
"a 


THEH 
"к" 
ETE 


+ <CODE A 


CHES 0 


"H" THEN 
„Мем 


Ет? 


(ЕТ 0-РЕЕК ¿PEEK 16398«256x*PEEK 163992 


THEN GOTO S86 
22215 


KEv$-"G" THEH GOTO 318 


эй 
ТНЕН 50 
3 


THEN GOTO 5! 


B LET A$=GECCODE Rf$-285 


GOTO Бій 


IF R$-CHR$ 115 THEN GOTO Эй 
IF R$-CHE$ 113 THEN GOSUE S66 
IF R$«CHE£ 11 ПЕ H$2"Z" THEM GOTO &3ü 


$+128) 


GOTO Fis 
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GRAPHICS MODE 


Flashing G cursor: All alpha and numeric keys will produce the graphic 
character shown on the key, or SPACE, where there is no graphic 
shown on the key, or INVERSE SPACE: key 2. The RUBOUT (delete) 
key (0) will work with OR WITHOUT using Shift. 


REVERSE MODE 


Flashing R cursor: All keys will give the Reverse (or Inverse) of their 
normal character (except Space, of course, which will Break the pro- 
gram—use Graphics mode to obtain Inverse space). 

The Shift key must be used to RUBOUT, as the inverse zero 
character on this key may also be required. 


NORMAL MODE 


Flashing N cursor: All keys give their normal character (except space, 
as above—use either Graphics or Control mode if you require spaces). 
Again, Shift must be used to obtain rubout. 


SAVE MODE 


There is very little point in creating a beautiful screen drawing if you 
cannot save it on tape for recall later. Save mode, obtainable from con- 
trol mode by touching key S, stores the entire screen display in a string 
array, and then allows the program, with the stored display to be SAVEd 
in the normal way. It is NOT necessary at this stage to decide that the 
drawing is 'complete,' LOADing a previous drawing from tape will allow 
the option of simply displaying the picture on screen or of continuing to 
work on it. 

Note that formation of the array takes about 90 seconds. The in- 
dication that Save mode has in fact been entered is that the cursor 
disappears altogether when key S is pressed. 


NOTES 


This is a very easy program to type in, as the 3 DRAW routines (at lines 
500, 600 and 700) are very similar, and all 3 may be entered at once 
using the Edit function to renumber the lines immediately after you 
have entered them. 
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mon F 
I am mi 


GRAPHICS (Continued) 


IF RH$-CHE£$ 118 THEH GOTO 26- 


IF H$-CHE£ 113 THEH GOSUE cee 
IF Hye Ж _THEH GOTO 738 


2 PRIHT AT Ye. CHR 0 


174 74 74 74 74 74 


LS! S ho! 


Cm Cc ci cu 


Ca c d m CDI IR CO fee Ca un un 02 
Ca CO Ca m ii 


pou 
Га 


rao C 0 c CO CO CO CO On (У 
1 
1 


Ал 


3 РЫ 


П m m rr rA rm n i m 
Oeuf ол a e Ca CD e Ca Gi 
LT Co Cn c m i n C n Са GG 


GOTO ?zH 

FEM RUBOLIT 

PRIHT AT taka ue" 
LET xX-& 
IF но-й THEN GOTO era 


LET = 1 
IF теа THEH LET т=2 
LET A$="" 
ЕЕТШЕН 
REM РЕІНТ 
FEIHT AT т.к; 
LET к= 5+1 
мезг THEM GOTO 1878 
LET х=й 
LET PEL +i 
IF ee THEH LET т-Ий 
| LET О=РЕЕЕ zFEEK 16335 
а БЕТПЕН 
B REM ZR" 
5 PRINT AT T,5;"-" 
3 DIM $622,323 
FOR a Ta 22 
FOR н-і TO 22 
PRINT RT т-і,н-і1; 
LET S$£v,x5-2CHE£$ FEEK «РЕЕК 1&z5954-z56XPFEEK 
НЕХТ X 
HENT " 
CLS 
4 FRIHT "SCREEH HOW STORED IH ARRAS Sci." 
FRIHT AT 2.8; "ЕНТЕЕ HAME OF GERFHIC:- 
3 INFUT НФ 
G IF N$="" THEM GOTO 2128 


PRINT AT 4,8; "START ТАРЕ. THEH PRESS 5 TO SA 


IF INKESS<2"S" THEM GOTO 2488 
SAVE NF 

ELS 

PRINT "PRESS D TO DISPLAY SCREEN” 
PRINT AT SG; "OR C TO DISPLAY АНІ COHTIHLUE" 
LET ІЗ-ІНЕЕТ 

[FEDES AHD I<" C" THEH GOTO 2858 
FOR т-і TO 22 

PRINT HT *v-1.8;z$cv? 

НЕХТ ^ 

IF I#="D" THEH GOTO 5148 

GOTO 44 

SAVE "GRAPHICS" 

FUH 
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Line 10 contains a string of all the available graphics characters, in 
the order of their corresponding keys, with spaces in the string for each 
key which does not have a graphic on it. Note the inverse space cor- 
responding to the Z key, which is necessary because the normal 
Space/Break key cannot be used during the program run. You may of 
course change line 10 so that other characters (e.g., Normal or Inverse 
+, key K) are available in Graphics Mode. 

Variables P, Q, X and Y are the previous and current Print coor- 
dinates, which are altered by the INKEY$ routine (lines 100—140). Line 
70 PEEKS the character which occupies the current PRINT AT posi- 
tion, and saves it in variable O, so that it may be replaced once the cur- 
sor has passed over it. Lines 505, 605 and 705 reset O to zero so that, in 
DRAW modes, existing characters can be overwritten. 

Lines 510, 610 and 710 are very important but often forgotten 
whenever INKEY$ has been used to cause a program ‘branch.’ Ob- 
viously it is necessary to detect that the finger has been removed from 
the key before proceeding with the Print routine, or you will get a string 
of unwanted Rs appearing every time you enter Reverse mode. 

CHR$ 118 (lines 540, 640 and 740) is the Newline character which 
causes each of the DRAW routines to return to the normal CONTROL 
routine. CHR$ 119 is the RUBOUT character. Note that line 550 differs 
from 650 and 750 in that it regards key 0 as the same as RUBOUT (in 
Graphics mode only). 

The Rubout routine beginning at line 800 works in the reverse 
manner to the Print routine beginning at line 1000. Compare lines 
820-860 and lines 1020-1060, both of which allow cursor 'wrap 
around' with lines 110—140, which keep the cursor within the screen 
boundaries. 

The Save routine beginning at line 2000 again uses the technique 
of PEEKing the 'contents of the contents' of system variable DF-CC 
(PRINT AT) to transfer each screen character into a 2-dimensional 
array S$. 

The program, along with this array, is SAVEd at line 2500, so that 
on subsequent LOADing, the program will continue from this point. 
Line 3140 is an endless loop which enables the screen display to per- 
sist forever (or until Break is pressed), without being spoiled by the 
'end-of-program' report code. 

Finally, lines 9000 and 9005 are used in nearly all the programs in 
this book. They are normally not an essential part of the program 
(though there are exceptions—see 'Kami Kazi Drive"), but are included 
so that all the programs may be SAVEd by typing 'GOTO 9000,' which 
will then cause them to run automatically straight from loading. 
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Chapter 9 
Game Programs 


Pontoon 


This is NOT the same game of Pontoon as the one you will find played 
at your local neighbourhood casino! 

In Part |, there are several casino simulations, all of which serve to 
prove that the casino ALWAYS has the advantage over the player. 
Historically, however, this has not always been the case. In com- 
paratively recent times, pontoon was played accoring to rules which, 
amazingly, were not only ‘fair,’ but which actually save the player using 
optimum strategy a marginal advantage over the casino. Unfortunate- 
ly, these rules are no longer in force, but this program is an attempt to 
reconstruct those glorious bygone days. 

Of course, you must still play VERY well to actually make a profit 
even when playing this ‘old-rules’ game. In certain respects, the 
‘house rules’ employed in the program are even harsher than those in 
force in present-day casinos. There is no such thing as a ‘stand off’; if 
player and dealer have equal hands, then the dealer wins! Also, the 
dealer (i.e., the computer) derives an advantage from the fact that 
there is only 1 player (yourself) to compete against. For example, if you 
have a 5-card trick, and the dealer has a score of 20 with 4 cards, in any 
'real-life' situation the dealer would obviously stand, conceding defeat 
to you, but almost certainly beating most of the other players. With no 
other players involved, however, the dealer might just as well take a 
fifth card, in the unlikely hope of drawing an ace, and indeed that is 
what the computer would do according to the strategy of this program. 


NOTES 


A program of this length can be very easily understood if it is split into 
several distinct sections. | haven't used REM statements to distinguish 
the sections, but you may add your own if you find them helpful. The 
main sections are: 

5-50 Initialization 

5-110 The deal 

115-445 Player's cards and options 
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POHTOCH 


1 GOTO 3618 
5 DIM T$62, 5,35 
& DIM Tizi 
т DIM R$z4.132 

іп RAND 

15 LET S#="HDSC" 
20 LET N-1888 
25 LET R£-"STICKeeRecBUv eeoRe-THIST" 
38 LET Те1у-й 
35 LET Т(29-й 
48 FOR I-1 TO 4 
45 LET nH$iJo-"Hzz45867893TJIuk" 
5B NEXT J 
55 PRINT "YOUR CARDSe++++y0U HAVE £";M 
68 PRINT AT 11.8; "DEALERS CARDS" 
&5 LET F-2 
Үй LET üG-1 
GOSUB Sa 
LET Н-і 
LET E-1 
GÜSUE 1908 
LET P-13 

GOSUE &Bü 

LET A=2 

GOSUE 1900 

PRINT AT 21,8; "YOUR STAKE £(185" 

INPUT H$ 

IF We="" THEN LET W$="10" 
138 FOR J=1 TO LEN H$ 
135 IF M$C(Io"8" OR M$CJ)2"3" THEN GOTO 128 
148 NEXT J 
145 LET S-VRL Ws 
158 IF 5<1а OR 821988 THEN GOTO 128 
tog LET SIS 
168 GÜSUE Si 
PRINT A 


н А ped А pe A G8 O0 CO 7] 
Pipes cc c CE on on 


anc on c en cx 


GOSUE S8 

LET A=1 

LET B= 

GOSUB 1464 

LET F=13 

LET Н-г 

218 GOSUE бий 

215 GOSUB 1668 

IF T£15»-21 THEM LET K#$="FOHTOOH" 
225 РОКЕ 16415,8 
238 PRINT AT 23.6; "= 

235 PRINT AT Z3.£38-LEH Е+>/2; ЕФ 

246 IF B-5 OR LEH R#<18 THEN GOTO 7868 
245 LET I$- IHKE''$ 


Ca cn ca cn c cn 


лкен а. pte pde p 
u o o -J-J 


ft 
! mr pe Mn o od 
Lan 


T.i 
Dex 
on 


IO 
rt 
"Cn 


LL 
an 
n c 
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700—745 Reveal dealer's first 2 cards 
750—830 Dealer's additional cards 
2000—2110 End options 
3000-6100 Scoring 

9000- Rules 

Subroutines: 

500—550 Print card outline 
560—585 Update 'cash' display 
600—630 Print card back 
1000-1110 Select card 

1200—1270 'Ace-reduction' 


INITIALIZATION 


A full pack of cards is held in array A$, with the suit being defined by the 
corresponding element of S$. Scores are held in array T (1 = player; 
2 = computer), with the actual cards (maximum 10 required) held in T$. 
N is the player's current 'capital.' R$ is a 'report string.' 

The use of the report string in this program is two-fold. Not only is it 
a device for displaying user information on the screen, it also provides 
game status information for the computer's own use. At several points 
the program branches according to the contents of R$ (see lines 240, 
700, 740, etc.). 


THE DEAL 


The mechanics of the game require that a card is dealt to both players, 
the initial stake is placed, and then a second 2 cards are dealt. This 
complicates matters slightly; it would be simpler from a programming 
point of view if all the player's options were completed first, and then 
the dealer's cards dealt out. However, this alternation between player 
and dealer is achieved by use of a ‘flag’ A (1= player; 2 = dealer), а 
‘pointer’ B (which represents the number of cards held by each player), 
and 2 ‘print pointers,' P and Q(P = line; Q = column at which the card 
is to be printed). 

The actual printing of the cards is then delegated to the 2 
subroutines 500 (card outline) and 600 (card back—the dealer's cards 
are not revealed at this stage). Subroutine 1000 selects a card from the 
pack; line 1050 assigns it to the appropriate position in T$, and line 
1060 prints it within the correct card outline. 
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PONTOON (Continued) 


IF 1#<>"B" AND I$<>"S" AND I$<>"T" THEN GOTO 245 
PRINT AT 23, MEE cd 
IF I$-"S" THEN GOTO 70G 

IF I$-"B" AND LEN R$-25 THEN GOTO 400 
IF Іж<>"Т" THEN GOTO 235 
(ЕТ R$="STICK¢+OR<+TH IST" 
GOTO 415 

LET $=S+S1 

GüSUP 568 

LET A=1 

LET B=B+1 

LET Q=0+6 

LET Р-2 

GOSUB 500 

GOSUE 1000 

GOTO 225 

PRINT RT P,G;"TE?77R T" 

FOR К-і TO 5 

PRINT TAB G;"15ec-cgT" 

HEXT K 

PRINT TAB 0; " 66607" 
RETURN 

LET N=N-S1i 

PRINT AT 21,20; "eeeee" 
PRINT AT 21,20;5 

PRINT AT @.25; "eeeeee" 
PRINT АТ 8,25;М 

RETURN 

FOR Kz& TO 6 

FRIHT RT PEK 03" THHHHH 1" 
HEXT K 

RETURN 

IF R$£i15-"EB" THEN GOTO 2008 
LET Н-2 

LET F=13 

FOR 0-і TO F STEP 6 


24 GOSUE 50G 


PRINT AT P+1,G+1:T#C2, INT (0/724%12 


B HEXT Q 


747474 74 04 7 


Pa Го ce£Á—--Jmoone 


e cr m 


Cn ci cn c cn c on e cn c eon ci 


cu co o cn 


IF Т<г22-21 THEN GOTO 3000 

IF R#C19="E" THEN GOTO 4996 

LET B-z 

IF B=4 AND T629516 THEN GOSUE 1200 

IF Т<2)<17 OR Е%61о2-"Е" THEN GOTO бда 
LET П%-5ТР% ¢T¢2>+15 

IF Тег2з-21 THEN LET Ii$-"POHTOOHS / 5 CARDS" 
LET I$-"DERHLEFR FR'Se"-I£ 

GOTO вай 

LET B=B+1 

GOSUE See 

GOSUB 1484 

LET @=0+6 

IF T£z5»2z1 THEN GOTO 4500 

IF E-5 THEM GOTO 3586 
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PLAYER'S CARDS AND OPTIONS 


This section is quite straightforward, lines 115-220 accepting the stake 
and calling the same 3 subroutines as above to print the second cards, 
and lines 225-445 forming a loop for as many additional cards as are 
required. The string in line 230 (and subsequently) is 32 spaces, used 
to clear a screen line of unwanted text. There is a much neater way of 
doing this, which will be used in later programs, but | will try and keep 
things simple at this stage. 

Line 125 is a useful way of setting a 'default' parameter, so that the 
player merely has to press Newline when a particular entrv is expected. 
Here the default stake is setto £ 10; carefree players may prefer to in- 
crease the default value to something higher. The POKE in line 225 is 
the same as was used in ‘Tarot,’ to increase the size of the screen. The 
INKEY$ routine to enter the player's selection (lines 245-270 is con- 
ventional, but with a slightly unusual variation. Once option T (Twist) 
has been selected, R$ is re-defined (line 275), so that the player is no 
longer offered the option to Buy. Therefore line 265 not only detects the 
key depressed (INKEY$), but also the current value of R$. (LEN 
R$ = 25 only when R$ includes the word BUY, as defined in line 25.) 


DEALER'S CARDS 


Fortunately the dealer's options in Pontoon are clearly defined by 
the rules of the game, so there is very little need to give the computer 
any 'intelligent' strategy (other than, as already mentioned, the ability 
to play on regardless of the consequences whenever the player has a 
5-card trick—see line 755). Line 750 is the only other sign of ‘computer 
intelligence": if the dealer holds, say, ace, 2, 3 and 4, making a total of 
10 or 20, the computer will not stick on 20 but will reduce its ace-count 
and take the inevitable 5-card trick (see the 'subroutines' section 
below). 


The 'dealer' section commences with the overprinting of the 2 card 
backs with the (already selected) cards themselves (lines 705—730) 
and then continues adding cards in much the same way as before. 
Note line 700, which detects if the player has 'bust,' in which case the 
entire dealer section is skipped. D$ is a second ‘report string,’ which 
serves a similar dual function to R$, but which this time contains infor- 
mation concerning the dealer's hand. 


END OPTIONS 


Another completely conventional INKEY$ routine which branches 
either to line 25 to continue the game, or to a comparatively trivial (user- 
friendly is the more polite term) game summary and ending. 
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PONTOON (Continued) 


36 GOTO 758 
Bae LET E-IHT cKHIMS223-41 
нін FOR J=i TO 4 
415 IF Xz-13 ТНЕН GOTO ій 
a20 LET #=#-15 
аса НЕХТ J 
pda IF АТ, к=" THEM GOTO 18688 
аса LET TECA. EN=AECI. Кэн 
ASS LET АФТА" 
Ben IF Н-і OF Bes THEH РБІНТ AT F+i.0+1: TÉZR E? 
ара IF s210 THEH LET ктій 
T 


LET TEA =TiA G+S 

IF “=1 THEH LET T£R3zTEXR2-418 

IF TéRH»2z1 THEM GOTO 126464 

IF Н-і AHD E-5 THEM LET Е+="ЕІЧЕ CARD TRICK" 
ЕЕТПЕНМ 

FOR J=1 TO E 

IF T£$zH.JI.15-2"H" THEH GOTO 1254 

НЕХТ J 

IF Н-і THEH LET k=" HUST" 

A GOTO 1118 

4 LET ТеН2-ТҰН2-ій 

LET T£&R, T, 12= "А" 

үй GOTO 1164 

FORE 16418,2 

FRINT AT 15,13; "PRESS I TO DEAL" 

PRINT AT 17,13; "0Е 0 TO FINISH" 

LET ІФ=ІНЕЕТҒ 

IF If$c2"GQ" AND IfZ2"I" THEN GOTO 2436 

CLS 

IF If$-"I" THEN GOTO 28 

LET I£$-z"LüSZT" 

IF Н>ійий THEM LET I$z"WüH" 

FEIHT "YOU ";I$;" "ABS £H-1B8BB85 

FRIHT AT ій. а; "THAHES FOR FLATIHG." 

GOTO 2233 

LET D¢="DEALER HAS FONTOON" 

IF Е%сіз-"Р" THEN GOTO ёййй 

GOTO 35 S28 

LET D¢="IIERLER HAS = CARD TRICE" 

IF Е%ЖСіз-"Е" THEH GOTO 6668 

LET Téz»-5ü 

(ЕТ H= H-5 
LET S=S#2 
GOTO Gub 
LET ni-"Tüü Goon" 


en 


RE к 
Pu mr mn m) mi mr 


=, 


Pi pif 
1 CD 4 Li 
me Cr 


ne em 
T mn mn m mi m co co m m 


T DER x 
T co Cm m mn c 0 


fa t m АЖ 


GOTO 2254 

LET D£-"DERLER HAS EUST" 

LET Т(22-й 

IF ЕФ12="Е" THEN GOTO 3538 
LET I$-"DERLER WINS" 

IF Т(13<-Т<2» THEN GOTO 6646 
LET I$-"wOU WIN" 


T ma d ur ma ama rm ur a mr m 


Го к- Ch phe cH nec un p Gi ГӘ 


mic mi RB ALLL po 
Cm c inen en uc c oA aA 
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SCORING 


| won't bother to trace the various spaghetti-like paths through this sec- 
tion, as all the possible outcomes of a game must be accounted for, 
however unlikey. (Line 3510, for example, prevents the stake from 
being doubled when both player and dealer have a 5-card trick.) Suf- 
fice it to say that all paths lead to line 6000, where the winner is 
declared. Note that lines 6110 and 2010—2020 print the same message 
at alternative positions on the screen, depending on the number of 
cards displayed—a totally unnecessary cosmetic touch which never- 
theless adds a touch of variety to the otherwise mundane process of 
message display. 


RULES 


All the rules and running instructions are contained in the listing itself. 
The rules are placed at the END of the program beginning at line 9080 
for 2 very practical reasons. From the computer's point of view, it is 
desirable for the most frequently called lines to occur near the start of a 
program, and although, in the interests of 'structured programming,' it 
is seldom possible to adhere to this guideline very closely, it is clearly 
sensible to place seldom-used instruction lines at the end. The real 
reason, however, is that programmers invariably add instructions to 
their programs only as an afterthought (if at all!) when the program is 
virtually completed, by which time there is nowhere else to put them 
other than at the end! 

Note that the spacing in these PRINT lines is designed to create a 
pleasing appearance on the screen, which unfortunately makes them 
look rather odd when LISTed. Where 2 words are printed together 
(e.g., MINIMUMBET in line 9110), you should enter them like this as 
they will be split onto two screen lines when the program is run. Similar- 
ly, double spaces should be entered exactly as printed. 

The INKEY$ routine at lines 9150-9190 is rather interesting. The 
rules are to be displayed on screen until the user starts the game by 
pressing D. To make the display slightly more interesting, the figures 
£ 8000 are flashed (normal and inverse), NOT continuously, but in a 
regular pattern, with the inverse figures persisting for a short time be- 
tween bouts of flashing. Notice that the INKEYS line itself (9160) is call- 
ed almost continuously, and that the 'flash subroutine' (9300) is very 
short. Whenever you use INKEY$ to detect a user response, beware of 
long loops which would cause a delay in a keypress being detected. 
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B PRINT AT 23,0; "* 


PONTOON (Continued) 
LET N=N+5+5 


PRINT AT 23, (30-LEN 4922214 
FOR J=1 TO 46 


B NEXT J 


GOSUB 575 

PRINT RT zZi,8;" 
PRINT AT 23,8; "4-44-46 

PRINT RT 21.8;I$;" #";5 

IF B=2 THEN GOTO 2888 

PRINT RT z3.8;"PRESS D ТО DEAL OR G TO FINISH" 


9 РОКЕ 16418,2 


GOTO 2638 


a SAVE "PONTOON" 


PRINT AT 19,12; "1E7777777R1" 
PRINT TAB 12; "tS1PONTOONTS t" 
PRINT TAB 12; " 666666601" 
PRINT AT 18,25; "Вт V+H" 

FOR J=1 TO 56 

МЕХТ J 


à CLS 
B PRINT ТАЕ 16; "HOUSE RULES” 


— C Go Glo 02-40% СП 
Go Cn C © © m m S 


A tg tp ug tue tm Or D at 
Cn cn o3 63 603 63 m m m mm 


PRINT AT 5,8; "МАХ. STAKE: £1686" 

PRINT "МІН. STAKE: £10" 

PRINT "(JUST PRESS HEHLIHE«€-FOR MINIMUMBET >"; AT 
8,8;"DERLER WIHS EQUAL HANDS" 

PRINT AT 18,8; "OU MAY TWIST OR BUY EXTRA CARDS"; 
AT 12.4; "PONTOONS++ANDeS CARD TRICKS FRYIOUELE 
«(То PLAYER OR DEALERI" 

PRINT AT 15,8; "MAXIMUM МІН PER HAND THEREFORE: "; 
AT 17,13; "£ S660" 

PRINT AT 13,4; "00 HAWE £1668 TO START. BUT 
+THEBAHE+44ILL АШ Оет 
ead INLIMITEDICREDIT.«*ERESS ID TO DEAL" 

FOR J=1 TO 48 

IF IHKE'*£$-"I" THEN GOTO 9*8 

IF J225 THEN GOSUE 3566 

НЕХТ J 

GOTO 3156 

FRIHT HT 1if.isi"f£ Sage" 

LET 5-ЕМІЖЕНІ 

FRINT AT 17,13; "# Saga" 

RETURH 

CES 

RUN 5 
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SUBROUTINES 


The two minor subroutines 500 and 600 have been mentioned already. 
Both merely print the card shape (front and back) at a position specified 
by the 'print pointers' P and Q. 

Subroutine 560 updates the player's capital (N) and stake (S) by 
overprinting the previous figures with blanks and then printing the new 
values. Lines 565/570 and 575/580 could have been written as single 
lines, but do not compress the whole subroutine into one line, as only 
the second half of it is called in line 6075. 

The 'ace reduction' routine beginning at line 1200 is called 
whenever either player's score exceeds 21. Any ace in the hand which 
has previously been scored as 11 is now scored as 1. This reduction 
operation must be performed one ace at a time, so once an ace has 
been reduced, this fact is ‘flagged’ by inverting the letter A (line 1260). 

Incidentally, it is a question of semantics whether lines 1200 on 
should really be regarded as a subroutine at all. They are really a 
branch of subroutine 1000 (called by a GOTO in line 1090), but are 
used as a Subroutine in their own right by line 750 (. . . GOSUB 1200), 
where the computer is not FORCED to reduce its ace-count, but 
CHOOSES to do so in order to take a 5-card trick. 

Subroutine 1000 selects a random number in the range of 1-52, 
and then uses a FOR-TO loop to reduce this to a number in the range of 
1-13. The loop control variable J is then used to determine how many 
times the number has been reduced, and therefore the suit of the 
selected card, S$(J). 

Notice that, as in ‘Tarot,’ no attempt is made to avoid duplicate 
numbers being selected; duplicates are merely detected (line 1040) and 
re-selected. Because no more than 10 of the 52 cards will ever be re- 
quired, this is even less likely to cause any delay than it did in ‘Tarot.’ 
But there ARE methods of selecting random numbers without any 
danger of duplication, as we shall see in the next program Battleships. 


Battleships 


If Pontoon is essentially an adult game (at least, when played for 
money), Battleships has traditionally been regarded as 'strictly for 
kids.' However, computer technology is changing all that, and | am 
sure that as many adults will enjoy this version of Battleships as 
youngsters will enjoy ‘Pontoon.’ 

The program is far more complex than Pontoon; there is a tiny 
machine code routine to create a spectacular effect whenever a ship is 
hit, and the entire display is generated by POKEing to the screen, 
rather than relying on PRINT AT statements as before. Also, two levels 
of play are included; the first, where the computer plays randomly, is 
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EHTTLESHIF-S 


Ото 399 
LET H=P+CODE R£$z15—39-c-x3x*XcCUDE 
LET РН-РЕЕЕ Н 
RETLIFEH 
IHFLT AF 

IF H£$z"GilIT" 
IF LEH H£$z»?z 
IF ASLIHAN 

THEH GUT 

GOSUE ій 
РЕТПЕН 
FOR J=13 10 zl 
РЕІНТ AT І.2;"% 
HEST J 
FEETUEH 
FOR J=1 Tu le 
LET liziia& 16514 
НЕХТ J 
RE TUR 
CLS 

РЕІНТ THE 18; "EATTLESHIFS" 

IF РЕЕК 16514=1 THEH GuTo 154 


НЫП Get THEM КЕТЕ 
THEN GUTU 22 


LET M=" Ai 4200A H ŞAHSA Aa EFE r prse esarri РЕ AF sca" 


FOR 1-1 TU 23 


OR ASCLSE"E" ПЕ ACIDE" OR BEOÓOD 
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FORE 16513+],. CODE MÉzT*2-15-225x*1&6-CU0UDE PHMf£sT&2»-2-2 


HEART J 

LET FzFEEK 163ЭеғгзеЖжРЕЕК 165397 
FOR J=3 TO 28 

PORE F+I+323, Т+1 62 

HET J 

FÜR I-eés TU 332 5 wt 
FOKE F+J INT 47/2324155 
FOKE P+JI+363. INT (15-535: 
NEXT J 

LET FEFLHT=H 

DIM Cz34» 

DIM izago 

DIM Step 

LET H= 

LET =й 

IF ЕЕҒі Ят THEM GOTU озы 

PRINT AT 11,3; "ENTER TOUR SHIP FUSITIOHS" 
FRINT TAB 13; "LEN FROM TO " 

LET E$-"H.'CHERIER«c—-—-:/255" 


3 FOR J=1 ID 9 


IF J>2 AND 726 THEM LET Ef="CRUISER eee 42" 
IF І-б OR J=7 THEN LET Е%-"ПЕЗТЕОЧТЕЕе--есз)" 
IF I»? THEM LET E$="FRIGATE Smt 22" 

PRINT AT J+12,3;€4 
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not terribly exciting, but at level 2 the program uses an ‘intelligent 
strategy' and plays a reasonably competitive game. 


SCREEN POKES 


Poking to the screen is itself rather like playing Battleships (although, 
hopefully, less random!). The screen can be regarded as a 32 x 22 grid, 
and any point can be accessed directly. Unfortunately, the design of the 
Timex 1000 creates 2 slight problems not found on other computers; 
the grid is not really 32 columns wide, but 33, the 33rd column always 
being filled with character 118. Poking anything else into column 33 in- 
variably causes disaster. Also, many of the Timex 1000 character 
codes cannot be poked to the screen without causing the display to 
crash. Neither of these problems should cause any great headaches, 
however. Assuming that you know which character you want on the 
Screen, and where you want it to appear, there can never be any 
danger of poking into column 33, or of poking illegal characters 
anywhere. 

The 'address' of the screen grid is not fixed, as on other com- 
puters, but can be found very simply by PEEKing the system variable 
D-FILE. PEEK 16396 + 256* PEEK 16397 gives the address of the 118 
character immediately PRECEDING the screen grid, so the first screen 
position is 1 plus this value. (I usually assign variable P to D-FILE 
value—see line 150.) The ‘forbidden’ column 33 starts at P + 33, and 
row 2 starts at P + 34, etc. 


MACHINE CODE 


The machine code routine in Battleships causes any 9 screen lines to 
be inverted. Bytes 2 and 3 of the routine define exactly which 9 lines are 
to be inverted, and these 2 bytes are actually changed during the 
course of the program. The machine code loader is contained within 
the Basic program—lines 110—125, with line 110 containing the entire 
routine in hex form in a Basic string. Once the program has been RUN 
for the first time, line 105 detects the presence of the routine in line 1, 
and so skips the loader. 
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BATTLESHIPS (Continued) 
GOSUE 25 


B 

5 IF РН<28 THEN GOTO 236 
й FORE A: 
9 LET His 
a 
5 
ua 


moo 


3 PRINT AT J+12. 26; AF 

GOSUE 25 

IF РА THEN GOTO 315 

LET L=AES zhR-hRi1» 

LET П-й 

IF L-VRL Е%(142-1 THEM LET 1=1 

IF L-33*£VRL Е%5142-1: THEH LET I-33 

5 IF D= THEN GOTO 315 

B FOR Е=1 TO VAL E$c143-1 

FOKE Ri-ExI*ZzGH z:H-H125.3 

H HEAT K 

PRIHT AT 12+J. 24: A$ 

A HET J 

FRIHT AT 11,2; "COMPUTER HOM FLRCIHG SHIFS" 
FOR J=3 TŪ 28 

PORE F+IJ+356. J+163 

НЕХТ J 

GOSUR 55 

FÜR 1-1 TŪ 3 

LET R-IHT «ЕМП%2342%1 

IF С«Ео-і THEN GOTO 425 
LET L=l+tJ<so4+¢ 326 9+0J23) 
B LET Ш-«ЕНП>.52ж2541 

IF ЕМІ>.5 THEH LET 1=-і%1 
IF ABS 1451 THEH GOTO 465 
с LET К-іЖІЗЕ-і1 
IF INT «КУРЕО<ЭІНТЕ<Е-із/2е3 THEN GOTO 425 

се IF Бәсіжпәз>г24 OF RezL*Doc1 THEM GOTO 425 

B FOR Е-Е TO É+iL#Ii STEF I 

S IF СХЕо-і THEN GOTO 425 

HEXT E 

FOR Е-Е TO FÉ+iL#ll STEP D 

LET Ciki=i 

НЕХТ Е 

НЕХТ J 

FOR J=1 TO 234 

LET HMZI5-JI 

HEST J 

FEIHT AT 1 : "ENTER YOUR TARGET COORDIMATES" 
FRINT AT 3.28; "HITS" 

ERIHT НТ 159.28; HITS" 

РЕІНТ HT й, 27; SHUTS” 

LET H=11 

GOSUE 25 

IF H£z"GlIT" THEH GOTO is 
ЕБІНТ HT іг. 25: 


b m m im c а М 


kA 
EN, 


n A m drama dn d c oJ —J 0 


i cnc cn c cn ci cn ro c Cn ca CN ci cn e cen c one 


UC CT ч CT CP M C C. m Oc eu (n cr (n Cn LE 4, p 4 E 
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LET K=151 


=, 
EN 
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The routine is as follows: 


01 42 00 LD BC, 66 GRID POSITION (START) 
2A OC 40 LD HL, (16396)  D-FILE 

09 ADD, HL, BC START POSITION 

06 09 LD B,9 COUNTER 

23 LOOP .:INCHL SCREEN POSITION 
ТЕ LD A, (HL) 

FE 76 CP 118 IS IT END OF LINE? 
28 05 JRZ, 5 IF YES, NEXTLN 

C6 80 ADD A, 128 INVERT 

77 LD(HL), A PRINT 

18 F5 JR 245 LOOP (next character) 
10 F3 NEXTLN:DJNZ 243 LOOP (next line) 

C9 RETURN 


Thinking of the screen as a 33 x 22 grid numbered from 1 (top left) 
to 726 (bottom right), register BC is loaded with the grid number of the 
position immediately preceding the line from which the inversion is to 
begin (i.e., a multiple of 33). Register HL is loaded with the contents of 
D-FILE, and then the contents of BC are added to this. The effect, then, 
of the first 6 bytes of code are to load HL with the actual address (less 1) 
from which we want the inversion routine to start. Register B is then re- 
used, this time as a counter of the number of screen lines inverted (9). 
The main loop then inverts each character on the next 9 lines of the 
screen. 

The machine code routine is called in a Basic FOR-TO loop (lines 
75-85) to produce the flashing effect at the desired rate. 

To use this routine in other programs, the following bytes can be 
altered: 

Bytes 2 and 3, to commence inversion at a different screen line. 
(As used in Battleships—see Notes.) 

Byte 9, to vary the number of lines to be inverted. 


RUNNING INSTRUCTIONS 


| hope that none of you have led such a sheltered life that | actually 
have to explain how to play Battleships! The program allows you to set 
up your own fleet positions on the top half of the screen, and then the 
computer sets up its ships on the lower half. (Your ships are visible, but 
the computer does NOT cheat! The computer's ships are, of course, in- 
visible.) Enter the grid coordinate of one end of a ship (then Newline), 
and that position will be marked on screen. Then enter the grid position 
of the other end, and, provided you have made a valid entry, the whole 
ship will be drawn in. There are 9 ships in all to place. 
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BATTLESHIPS (Continued) 
LET Г«Ез-г 
LET 58%12-5012341 
FüKE 16515.173 
PORE 16516.1 
GOSUE 75 
FOKE R.K 
FRIHT AT 28.29; 5¢13 
LET б=б+1 
FRIHT HT 1. 2556 
IF 5512-22 THEH бото ; Shae 
FEINT AT 11,6; "4+ : : 
LET Hz& 
IF Н<>2-і THEH GOTO ESA 
LET R- INT cREHIM:z35-G32341 
LET =M¢k3 
LET М(ЕО-Ме238-із2 
LET Мег35-бошы 
GOSUE 384 
FRIHT AT 6.25; AF 


a LET K=23 


22 


IF PASS THEH GOTO FES 
IE Н>-1 THEH LET H-&x 


B LET 5(22-5Сс22%1 


LET К-151 


ü РОКЕ 16515. 66 


En Cn Le 0n 63 PO Та m rm m ima Ao un e eo Où o = 74 C OT CRI N ur Mr OC Où 7 


ME Mp Ne Vn um o Me Me en A to co C eo Ca ca 09 09 са 03 02 Où CQ DO 7) 74 7 J 7 74 74 7 7 7 — 
Ln Ca ca Cn co Cn ci Cn ei Cn ci en cmi р m Cn C Cn c cn c Cn ci ec» cn c o c : 


PORE 16516. 

GOSUB FS 

РОКЕ R.K 

FEINT AT 9,2 c3: Se 2 

IF si2523z THEN GOTO zB 

GOTO 615 

IF НОТ H THEN GOTO 715 

LET Hz-Hz-*1 

IF Н2=1 THEH LET Hi=z“ 

FOR I-1 TŪ 4 

LET ScHHCI 

IF Ki ПЕ мог24 THEH GOTO 358 
GOSUE asa 

IF FALSE AND PHZ28 THEN GOTO 958 
LET @=1 

IF Hinos THEH LET Оты 

ЕПЕ kz To S35-G 

IF Meck: м ЕА GOTO 315 

LET МЕЕ C ЕЕ 


EET ІН 

LET K=23 

HEXT K 

LET KzHZI? 

LET HZ J32Hz15 
LET Hzi15-E 

FEIHT AT &.z5;nf 
GOTO FE 

HEST J 


IF Hi=H THEH GOTO 378 
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There is only one point | would like to stress; this is really so ob- 
vious that you may think that it is hardly worth mentioning, but | have 
watched many people play with this program, and at least half of them 
make a mistake here: when you enter a ship position to start at, say A1, 
and the ship's length is 5, then it will finish at either A5 or E1, and NOT 
at A6 or F1! 

You then simply take pot-shots at each other's fleets, until one of 
you has totally destroyed the other (32 hits). If you lose, or enter the 
word QUIT instead of a grid coordinate, the computer will reveal the 
positions of its remaining ships, by drawing them onto its grid. Because 
the process of setting up your fleet takes some time and is boring, there 
is an option at the end of each game to replay using the same positions 
as before. The computer is so stupid that it will not remember these 
positions; it will, however, reposition its own ships each game. (It isn't 
THAT stupid!) 


NOTES 


Having already mentioned the machine code routine and the screen 
poke principle, the program can be broken down into easy sections, as 
before: 

10-90 A collection of short subroutines 

105-125 Machine code loader 

150-185 Print player's grid (sea area) 

190-370 Position player's ships 

400—415 Print second grid 

420—515 Position computer's ships 

600-690 Player's shots 

700—795 Computer’s shots 

850-975 Computer’s strategy (level 2) 

1000—1050 Reveal computer's ships 

2000—2028 Declare winner 

2030-2050 End options 

2090-2155 Retain player's positions for new game 

3000—3080 rules 

3090-3150 Initialize computer strategy (level 2) 

4000—4070 Utterly pointless 'end' routine 
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1626 
1825 
18368 
1835 
1848 
1845 
1858 
2688 
26168 


LET H=Hi 
GOTO 865 
LET Н-й 

LET Нг-й 
GOTO 715 


BATTLESHIPS (Continued) 


LET H$-CHR£ £X-CIHT &6X-150/265X*260437)*CHRE$ CIMT 
CCK-19/269+29) 


GOSUE ій 
RETURN 
LET N=11 


FOR K=1 TO 234 
IF Cékoci THEN GOTO 1636 

LET R£-CHRE$ {X-CINT ((5-12/26)Ж262%372%СНРЖ CIMT 
((55-12/262%29; 


GUSUB 18 
РОКЕ AE 
NEXT X 


PRINT AT 11,3; "PRESS AHY KEY TO CONTINUE" 


IF INKEY#="" THEN GOTO 1644 


PRINT AT 11.0," 


GOTO 243 


б 


LET МҰ= "тор" 


IR.SC2207801) 


THEH LET W#="1" 


PRIHT AT 11,2; М; "ЧОҢ Ет": AES (5612-5299 


IF H$-"I 


THEH GOTO 


FOR J=1 TO 25 


5 НЕХТ J 


28 GOTO 103 


Dp no 6o OT 


3 AA 
Ca n Cu Cu fe 


GÜüSUB 55 


3 


FRIHT AT 15.2;"FRESZ 
POSITIONS": AT 13.2; 


GOSUE 55 


IF PEEK 
IF PEEK 


ә MENT J 
BPR AT: 


FRIHT HT 


GOSUE 52 


GOTO 35 
CLS 


IF IHKET$-"H" 


РЕІНТ AT Be 
PRINT THE 23> "eee" 
B PRIMI HT 6.29; "se" 
LET REFLR''z1 

IF Н<2-і THEH GOSUE 
2 GOTO 135 


FOR J=F+63 TO P4338 


1 


Be 


Н FOR МЕМ САМЕ": AT 17,835 FOR SAME 
"^ TO ЕНІ" 


THEN GOTO 220 
IF IHKEY$-"X" THEH GOTO 46646 
IF INKEY$<2"5" THEN GOTO 2840 


-23 THEN FOKE 7,8 
-151 THEN POKE 1.8 


GOSUB 2625 


Baia 


PRINT THE 18; BHTILESHIFS" 


FRIHT TAB 16; " 
AZ.IBUSET UF 


РЕІНТ AT 


OUR AeSH I PSH HE eT OF HALF 
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| am not going to explain the various sections in great detail this 
time, but will concentrate on the more interesting features. But don't 
just type in the listing blindly; make sure you can understand exactly 
how each section works before entering the next one. 

The key to the program is in the way grid coordinates, entered by 
the player or selected by the computer, are converted into screen 
memory positions to be POKEd with the appropriate character. This is 
handled by two of the early subroutines, and by one at line 980. 

Subroutine 25 accepts the player's entry, and checks that it is a 
valid grid coordinate. (You will notice that, apart from the start and 
finish options, which are handled by INKEY$ routines. ALL player en- 
tries are in the form of grid coordinates, so line 10 is the only INPUT line 
in the entire program.) 

Subroutine 10 converts the grid position into a screen position, 
with reference to variable P, which was defined as the D-FILE value at 
the start of the program (line 150). Line 10 sets A to the address of the 
screen position, and line 15 sets PA (PEEK A) to the character which 
currently occupies that position. 

It is clear from this that, because the player's ships are visibly 
displayed on the screen, there is no need to use any other part of 
memory to define their positions. The same is not true, however, of the 
computer's ships; these positions must be stored in an array C, which 
duplicates the computer's grid, and in which 0 = absence of a ship, 
12 presence of a ship and 2=a ship which has been ‘hit.’ Hence, in 
line 635, the effect of a player's shot is determined by converting the 
grid coordinate into a simple number (1—234), and the element of array 
C corresponding to this number is checked (line 645). 

When the computer takes its shots, the process is reversed; it first 
chooses a number in the range of 1-234, and THEN converts this into a 
grid coordinate (subroutine 980). 

The random number selection routine in Battleships is a vast im- 
provement on those we have seen in the previous programs, and is 
worth studying in detail. There are 234 (9 x 26) possible 'target' posi- 
tions, so the normal random number routine would use a line like: 

LET X = INT (RND*234) + 1 
and then a line which checked whether X had been chosen before, 
reverting to the above line for re-selection if it had. This would be fine in 
the early stages of the game; there are 234 targets to choose from, and 
the chance of duplication would be slight. As the game progressed, 
however, there would be fewer and fewer unused targets, and the com- 
puter would take longer and longer to find a ‘new’ value for X. 
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BATTLESHIPS (Continued) 
«ОҒ THE SCREEN.” 


aud? PRINT 

3688 FRINT "ALL COORDIHRHTES SHOULD БЕ IN THEFORM 
LETTER FOLLOWED Ет NUMBER." 

3883 PRINT 

3818 PRINT "THE COMPUTER WILL THEN PLACE ITSSHIPS." 

3811 PRINT 

3912 FRIHT "WHEN FROMPTED. ENTER COORDINATESOF TOUR FIRST SHOT.” 

3614 FRINT AT 28,3; "PRESS ANY KEY TO CONTINUE” 

3415 IF IHEEY$="" THEH GOTO 3815 

sal? CLS 

3626 PRINT "THE MIHHIHG SCORE IS 32 HITS." 

3021 PRINT 

suzz PRINT "YOU MAY RESIGH BY ТҮРІНС “QUIT a” 

S823 PRINT 

3424 PRINT "AFTER ReecuWHPLITERe-p IM. ÜReerOLHEBEESIGHRHTICUH. 
ЄТНЕ РП-ІТІОН OF THECUMPLITERS—-REHRIHIHG 
€SHIFSe-IILLBE REVEALED.” 

3825 FRINT 

3426 РЕІНТ "AT THE END OF THE GAME, OPTIOW ZHILL«c-RLLOM 
TOUT RETRIHCe-THESRME POSITIOHS FOR 
TOUREESHIFS, (THE COMPUTER: ds 
eCHIILLREFÜSITIOH ITS SHIPS. ? 

28039 PRINT AT 17.35 LEVEL 1: ERE" 

3644 PRINT HT 15.3;"LEWVEL 2: HARD" 

3445 FRIHT AT Z1.8;"t£PRESSe-€1 OF 23" 

3434 LET ІЗ-ІНКЕТЖ 

ЗБІР I£$Z"1" OF 1o" Іі" THEN GOTO 3858 

zra LET H=YAL 1%-2 

3489 IF H THEH FETUFH 

3898 LET H-ü 

3835 LET Hi-ü 

31686 LET Hz-ü 

3185 DIM HE4? 

3118 LET Нкіз--1 

3124 LET Hé£zZ5-1 

3138 LET Hi35-26 

3148 LET Hi45--z6& 

3156 БЕТПЕН 

4088 CLS 

4818 LET HM$-"THRHHES FOR PLAYING XBHTTLESHIFZ*" 

4838 FOR J=1 TO LEN We 

4048 PRINT AT ій, В; Н 

4058 LET H#£Ji=CHRS (CODE HW$cIo-128-z56*cCODE Wc Jirih) 

4464 HENT J 

4878 GOTO 4828 

2006 SAVE "BATTLESHIPS" 

3618 RUM 
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Compare this with the actual routine used (lines 715-730). An ar- 
ray М is first set up (lines 505-515), in which the 234 elements contain 
the numbers 1 to 234, respectively. The computer then selects a ran- 
dom number R, in the range of 1 to the number of VACANT targets (line 
715: Gis a counter of the number of shots fired). X is then extracted from 
the Rth element of array M. Obviously, for shot number 1, X will have the 
same value as R, but lines 725 and 730 swap the contents of the Rth 
element of M with the contents of the (235 — G)th element, so that the 
array now contains all unused targets in its lower elements, (1 to 
(234 — G) and all used targets in its upper elements (235 — G to 234). In 
future passes through the routine, as G increases, so line 715 will 
ALWAYS select a value of R which relates to one of the UNUSED 
targets. 


The routine at lines 325-355 also deserves special attention. The 
player is allowed to enter any starting position for a ship (line 290) and 
an end position in any of the 4 possible directions (line 315). The routine 
checks not only the validity of the second entry in relation to the first 
(note that the length of each type of ship is specified by the 14th ele- 
ment of its name string E$, so make sure you enter all the strings cor- 
rectly), but also determines the direction in which to draw in the com- 
plete ship. A similar routine is used when the computer is choosing 
positions (lines 435—480). This time both the starting positions and the 
direction are chosen randomly, and the rest of the routine ensures that 
the whole ship will fit in the grid. 

Lines 665-670 and 770—775 modify the machine code in line 1 so 
that a player hit will flash the computer's grid, and vice versa. 


COMPUTER STRATEGY 


Obviously the main interest in this program is the way in which the com- 
puter is given an 'intelligent' strategy. At level 2 the computer will en- 
sure that a complete ship is destroyed once 1 part of it has been hit, 
and (this part is based on my observations of the psychology of 
Battleships players) it will also search around the ends of each ship to 
detect fleets which are 'chained' together. The intelligence of the pro- 
gram is as follows: 

Subroutine 3090 initializes an array H, which merely contains the 
4 directions from any grid position. Simple variable H doubles as a 
pointer to the current hit position, and as a flag to indicate whether the 
intelligence feature is to be used at all (— 1 = no; 0 = yes, but no hit; any 
positive value = yes). H1 is a pointer to the first hit which located the 
ship currently being destroyed, and H2 is a flag to indicate whether or 
not the current ship has been completely sunk. 

The intelligence routine (lines 850-975) is called whenever 
H <> — 1 (line 710), but line 850 reverts to random search strategy (non- 
strategy?) if a ship has not been located. When a ship is being ‘worked 
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on,’ shots are fired in each of the 4 directions around the first hit until 
the axis of the ship is determined. Then the elements of array H are 
swapped around so that the computer will continue to fire along this 
axis until the end of the ship is found. At this point, stage 2 of the 
strategy comes into play, and 'chains' are searched for. Whether or not 
this is an effective policy | don't know. Certainly it is very effective 
against 'typical' human opponents, but knowing that the computer 
ALWAYS uses these tactics means that it is possible to make it ‘waste 
time' by NOT chaining your ships together. 

When a chain is found, it is pursued to the end, again by swapping 
elements of array H, if necessary. H1, however, is retained, so that at 
the end of the chain, the other end of the original ship is destroyed. The 
H and H2 flags are not reset until the computer is satisfied that it has 
nothing further to gain from pursuing its strategy, and random search is 
resumed (lines 970—975). 

The intelligence feature does, of course, tend to nullify the 'instant 
response' feature of the random number routine described earlier. 
Things are speeded up, however, by line 887, which checks to see if the 
relevant element of array M has been disturbed from its original value; 
if not, the routine works almost as quickly as the random search. 


PROGRAM IMPROVEMENTS 


| don't want you to think that the programs in this book are all perfect. 
(What do you mean, you didn't think that for a moment?) There are 
several improvements you could make to Battleships, particularly with 
regard to the intelligence features. When | wrote the program, it had 
been a long time since | played Battleships, and the strategy was good 
enough to beat me atleast half the time. However, now that | am an ad- 
dict, the next step is to add level 3, where the computer uses a 'bomb 
pattern' check, to avoid wasting shots (there is no point in firing at A1 if 
A2 and B1 have already been used), and does not use the 'chain 
search' so consistently. 

Level 4 would be even closer to human intelligence. The computer 
could keep a check of the lengths of destroyed ships, and modify its 
bomb patterns to search most effectively for the remaining ships. This 
is not as easy as it sounds; it is possible to disguise ship lengths by 
close grouping, and even the computer's supposedly random ship 
positioning often manages to create some very deceptive groups. If 
any readers decide to develop 'Battleships' to level 4 or beyond, | 
would be interested to see their results. 
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Fortress 


This program takes the concept of ‘computer intelligence’ one stage 
further. The computer plays 2 games: 1 is extremely difficult to beat; 
the other is impossible to beat! 

The rules of the game are contained in the listing, lines 
5000—5130, and you should read these first to familiarize yourself with 
the various options and objectives. The 'board' is illustrated on page 
115, and you may find this diagram more helpful at first than the screen 
'map,' as the connecting passages are NOT shown on the screen 
display. Notice that each room, marked with a letter, is connected to its 
4 nearest neighbors. 

The game is rather unusual in that the 2 players, attacker and 
defender, have completely different allowable moves, and hence the 
program is 2 games in 1; you can play the attacking role to the com- 
puter's defense, or defend against the computer's attack. (In fact, the 
program contains 3 games in 1, because there is also an option for 2 
human opponents to play against each other.) 

At first sight it would seem that the defender's lot is not a happy 
one. He only has a choice of 2 moves per turn, and has to spend most 
ofthe game sitting around waiting to be captured. The attacker not only 
has much greater mobility, but also has the first move, which must 
surely be an advantage. Unfortunately, if you believe this you are 
heading for trouble. You may be able to beat a human opponent play- 
ing the attacker, but the computer's defense is infallible! 

So perhaps the defender's role is the best option after all? Try 
playing defender to the computer's attack, however, and you will still 
find that you will be beaten most of the time! 

(This program is great for demoralizing any of your friends who 
claim that “computers will never be able to play as well as humans.”’) 


NOTE 


If you would like to work out the optimum strategy for both players 
yourself before | give away any secrets, please do not read any further, 
and key in the program 'blindfold' (if you can type blindfolded) without 
trying to comprehend the listing at this stage. 
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NOTES 


The connecting passages will NOT be indicated when this map ap- 
pears on screen. 

The defender will be marked by the character : + 

The attacker will be marked by the character: ж 

The defender starts in room D. 

The attacker starts in room R. 
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INITIALIZATION AND GAME ORGANIZATION (lines 1-245) 


The fortress map or playing board is POKEd to the screen by the 
subroutine in line 2, using the same technique as in the previous pro- 
gram. The only difference this time is that the required screen positions 
are not calculated by the program, but have been worked out on graph 
paper beforehand, and are held in array A. Array L$ holds the legal 
moves (for the attacker) from each room. Arrays C and G are used by 
the computer in its move analysis. Most of the variable names are 
mnemonic: AP is Attacker Position, NAP is Next Attacker Position, etc. 
NO was intended to be a mnemonic for Number Of players, but in fact 
in the 1-player game, it takes the rather strange values of 38 and 41, 
depending on whether the player is in attack or defense. 


HUMAN ATTACK (lines 1000-1270) 


Lines 1040-1080 check the legality of the entered move, and illegal 
moves are rejected and the appropriate Error report string (E$) is flashed 
(lines 1090—1120 and subroutine 20—24). Obviously the condition 
where the attacker has no legal move is fatal, so line 1130 terminates 
the game at this point. Once a move has been accepted, the passage 
used is blocked, IN BOTH DIRECTIONS, by lines 1160-1190. (The 
mechanism for this is that the appropriate elements of array L$ are ad- 
justed to 128 plus their original value.) 

Line 1210 checks for a win, and finally the new position is POKEd 
to the screen in lines 1200 and 1260. 


HUMAN DEFENSE (lines 2000-2150) 


This is naturally a much simpler version of the same routine. Move 
validation is confined to line 2030; there is only 1 necessary error 
report (line 2040) and the ‘passage-blocking’ is omitted entirely. 

In the 2-player game, play alternates between routines 1000 and 
2000 until such time as a win is signaled and the 'end routine' at line 
7000 is called. 


COMPUTER STRATEGY 


The computer's strategy for defense is contained in lines 8000—8020. 
(Yes, that's all there is!) Lines 8500-8775 are the computer's attack. 
Yout will notice immediately one of the truisms of computer games pro- 
gramming: an infallible strategy is much easier to program than a 
merely 'best' strategy! 

| an NOT going to give the game away completely by explaining 
how the defense strategy works. It is not too difficult to deduce by look- 
ing at these few lines in relation to the way array C was initialized at 
lines 30—48. 
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>ілелісіл іл G3 G3 60 69 G3 Pen F0 F0 РА PU m кке e ino —] C CD JR OG р 
Lite C Са П t 


enin nc 


45 ba Pa 0m un o ay Mi 


TM M M MC 


FORTRESS 


GOTO Z4 
LET F=FEEE 16356+256#PEER 16337 
FOR J=i To is 
PORE Fad to. I+37 
НЕХТ J 
RETURH 
FEINT AT 28.8; "PRESS H-T RECALL MAF OF Fe+FORMNORE RULES." 
(ЕТ I£-IHKE'£t 2 p 
IF I$c2"M" AHD IfZ2"E" THEM GOTO F 
FETURH 
CLS 
FRIHT TAE 11; "FORTRESS. " 
FETUEH 
РЕІНТ AT Z1.8;Ef 
FOR Ісі TU 3H 
HEST J 
FRIHT AT zi1.8;"« 
RETLIEH 
DIM (51829 
LET C£1221 
LET C£z5-z 
LET Cé3523 
LET 2-3 
LET 
LET 
LET 
LET 
LET 
LET 
LET 
2 LET 
S BET 


LD Od —J 7S 4 Lo [S m 


Lies po Db e n 


LET ) 
5 LET З 
6 LET CUG) 
? LET CLP? 
8 LET CC18» 
DIM ACLS 
LET ACL) 
2 LET ACD 


vo ШЕТ 
LET 
LET 
LET 
LET 
LET 
LET 
EET 
EET 
LET 
EET 
CET 


m en 1. [o 
CN Le Où р Г ee fi А 


Һа Pres pa pa pa pa П 41. 


PP EP UU, ТЫЛҒА Te Eee um, UM, UP, QI, ua, Талға Te Ts Ve É 


QUU CD Да a о а oi о бза Nap п уо a а u боз oes ws AL om (ee VA вао EÈ que D оо ЭСЕ О eT aa E p Yak een ИСО 


— e o em e LUI ШІ 
Lire me 
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The attack strategy is based on the computer playing 'best possi- 
ble’ moves, until such time as the human player makes a mistake (as 
they tend to do, these humans). Then the computer is able to 'take 
over’ the strategy it would use in defense (not the same moves, of 
course, but the same strategy, played outside the A-B-D area), and go 
on to win. 

Therefore the major portion of the attack strategy is involved with 
determining: 

1) Has the defender made an error? (i.e., Is a ‘potential winning 
move' available?), and 

2) If not, then what is the best possible move remaining? 

Both these considerations are combined in a single routine which 
‘weights’ all 4 options available according to the following table: 


Illegal move — 30 
Potential winning move +15 
Actual winning move +30 
Losing move — 10 
Other moves - 1 for each blocked exit 


from the new room 

(The weighting for ‘other moves’ uses the look-ahead routine in 
lines 8600-8610.) 

Lines 8700-8775 select the best move, and where moves are of 
equal merit, the move to the lowest lettered room is selected. Notice 
that ‘potential winning move,’ i.e., one which will enable the computer ; 
to adopt its infallible strategy and ‘illegal move’ are not singled out for 
special treatment, but both merely weighted along with the other 
possiblities. The losing situation where all 4 moves are illegal is 
detected in line 8745, causing the computer to concede defeat in line 
1110. 

| should mention of course that for the computer’s first move 
(only), this entire process is skipped, and a random choice is made (line 
8510). 
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FORTRESS (Continued) 

LET Я<152=447 

LET Я162=471 

LET Н(172-435 
LET R£185»-2544 
DIM L#cis.43 

LET L#¢1>="BCDF" 

LET L#<2)="ADEG" 

LET L#¢39="AFHJ" 

LET L#¢49="HABFG" 

LET L££S55-"EGIK" 

LET Lf$i&5»-"HDCH" 

LET L#¢79="BDEI" 

LET L#¢S9="CFJL" 
(ЕТ L#¢99="GEKM" 
LET L#¢1@>="CHLPF" 
LET L#c119="EIMG" 
LET L#¢122="HJIFH" 

LET L£ci3sz"IKGQ" 
LET L£z145-z"LüPE" 
LET L£z152z"MHGR" 

LET L$i6:="JLHE" 
LET L#¢179="MEOR" 
LET L£$z185z"HÜüPG" 
DIM 65542 
LET RF-18 
LET DF=4 
LET Gzü 

GOSUE 15 

РЕІМТ RT 5.80;"1: 1 PLAYER GAME" 
FRIHT RT 7.B8;"Z: 2 PLAYER GAME" 
FRIHT AT Е RULES" 
LET I$-IHKE*'€ 

IF 1%<"1" OR 1$>"3" THEM GOTO 126 
IF I[#="3" THEH СОТО 566 

IF I£-"1" THEH GOTO ёй 

LET Hü-z 

GOSUE 15 
GOSUE 2 
FOR J=1 TO 34 
НЕХТ J 
FOKE FAAP. 136 
POKE F-RZIP2.21 
PIE IET u*-I£f MEE it 2226 


оз оз CO Qo у 74 04 04 4 04 04 04 04 04 OS CS C M 
FX e fu Où) TS СЛ 4 оі PY ee Ch O8 AJ S Ел 


tee (E ETE Le D PO m Im mcm ue cut goi - C Iq 0 


C Cn C en Ca m cm c Cn con c СП c 


3 P2. Pr Th Ы Te m m m m ке ee Li LE ur Où 02 02 Où 00 0o 


Г. 
12 
uu 
= 
e 
à 


GOTO : ana 
FRIHT AT Zi.8;"HTTRHCKER MOVE с ТНТ" 
LET I$=IHEET# 

IF It="" OR ІЖ-СНЕФ 118 ТНЕН GOTO ile 
LET H=8 

FOF Ісі TŪ 4 

IF L#cAF. Js=1¢ THEH GOTO 1128 


URL ON 


zi x 
gu cn po rac Gi CRC on 
| Et am mmt Cu m =, 


mm am 
доқ 


1 
1 
18 
i8 
ій 
1B 
1 


Cu 0 
iE 


=, 
BA, 


IF АР. ToSCHRS CCODE T¢+ise> THEN LET H=H+5 
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FORTRESS (Continued) 
"AR. Jo IDCHE£ 125 THEH LET H=H+i 
HEXT J 
LET E£$-"Hü Е 
IF H24 THEH 
IF Н-4 OF Hzz 3 THEM LET ES-"BLL PASSAGES BLOCKED" 
GOSUE ZA 
IF Ежсіз-"Н" THEN GOTO 2128 
GOTO 1444 
LET WAF=CODE 14-37 
LET L£fzHF.JI32CHE£$ (COE L£ZBHPF.I»54-1225 
ЕПЕ I-i To 4 
IF ҰНАР. Іо-СНЕЖ CAP +37 > THEM LET ҰНАР. = 
СНЕЖ ÉCOLE L$zHHF.JI34i1z23 
НЕХТ J 
FORE FtACRF?. АР 
IF FEER ZF-RHZHRHP»3Zz2zl1 THEH GOTO 1256 
LET We="ATTACKER" 
PORE F-*-HECHRF?.13& 
GOTO FH 
LET AF=HAF 
FORE F+ACAP >, 136 
IF INÉET#$=I$ THEM GOTO 1265 
GOTO 248 
PRIHT НТ 21.8; "DEFEMDER MOVE i+)" 
LET ІЗ-ІНЕЕТЖ 
IF I$z"" ПЕ ІЖ-СНЕЖ 118 THEM GOTO 2818 
IF If$-"H" OF If-"E" OR I$f-"D" THEN GOTO 2070 
5 Н HOUR AREH" 


ыл 
Bm 


CO =) CTS CTI 4 CO DO em ami n co —J 


ғ 
jm 
ic 
d 
= 
= 
= 


E E 
a ma dmn gm) шш jm 


Iu d (2 
D dX Xi) dni 


pe A pede be bé bé du bé bé Et bi ыы 
=, 
A, 


— (P ÀÀ ња БА be be E I 


T vv 
at EDU 


d 
АХ 


ыра Та ТО P PO CRUE CRE ГГ e 


m Cu JUS CS ET Le а [SO m ami tg 


E d rex Es E cd қы ы ы ya а Je . ра 
D 6m c Cm c cm c m га сысы басы D D баласы rr RI саса сш іл C n mna n ыш a 


d рал Ек кес те ee e e o кы БА 


GOSUE 


GOTO ; aon 


LET НІР-СППЕ 1$-37 

IF НІР=ТЕ THEM GOTO 2416 

FüKE F+AcTeo. DP+3? 

IF FEEK Е+АНІР 075136 THEM GOTO 21а 

FORE F-4RHZHIF3.z1 

LET H£-"IEFEHIEFE" 

GOTO TEE 

LET ШР-МІР 

GOTO 225 

CLS 

GOSUB 2 

FEIHT AT 18.8; "THIS IS A MAP OF THE FORTRESS," 

GOSUE F 

IF I$-"M" THEN GOTO Beis 

CLS 

FRIHT "THIS IS A GAME FOR 2 PLAYERS. ORL PLAYER 
AHI THE COMPUTER. " 

РЕІНТ 

РЕІНТ "THE IEFEHIER ¢+5¢+IS<¢RESTRICTEDTO FÜüüOMS 
«Н.Е ANI H. THE ATTACKER fH 2 MAY OCCUPY! 
Ah BOOM. +EITHERPLAYER WAY PASS Toe] 
AH=ALIACEHTROOHN BY ——Re]jOHHECTIHGee 
PASSAGE, BUT THE RHTTRHCHERe-ISC-KESTEICTEDIH 
-THHT.UHCE HE HAS USED A FASS-AGE, THAT 


ммм 


Tr Re АТАЛ mA m be bé bé orm к) 
CO pu Ра m m m ETE TR CO PS em Ca Lt 


cn en em ian en en em ra 


=, 
A 


unn 
UC cC 


+ où 
on 
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FORTRESS (Continued) 
HPASSAGE++15¢+BLOCKED. AND MAY HOT 
«БЕ REUSED." 
45 PRINT 
cis] FRIHT "ТНЕ+0ЕЈЕСТ-0Е+ТНЕ#-58АМЕ І5е 
TOCAPTURE TOUR ПРРОМЕНТ Бтя-“ЧОУІНСІНТІО 
«ТІНЕ ROOM WHICH HE CURRENTL'TOCCUFIES, 
CCAPTURES CAN OHLY ТНКЕРІНСЕ ІН ROOMS 
HLE OR I. AS+<eTHEDEFEHDEF CANNOT 
eL ERVE THESE. >" 


S655 GÜSUE 7? 

анын IF I$-"E" THEN GOTO 58858 

S865 CLS 

Sera GOS SUB m 

Sara GOTO Sa 

саа CLS 

S685 PRINT "THE++ATTACKER++4AY LOSE THE ӨНМЕВТ 


+BECOMING++TRAPPEDS-INe+A ROOMFROM WHICH 


++ALL++FASSAGES+++HAYVEBECOME BLOCKED. " 
uasa PRINT 
5895 PRINT "HT THE START OF PLBY:-" 
2184 PRIHT 
5163 PRINT "THE ATTACKER IS IN ROOM Е," 
S118 PRINT "THE DEFENDER IS IN ROOM D." 
2115 PRINT 
Size РБІНТ "Н.Е. THERE IS NO PASSAGE BETHEEHFOONMS 


+0- OF БЕТМЕЕН ROOMS 1-Е." 
РЕІНТ 
РЕІМТ "THE ATTACKER ALWAYS MOVES FIRST." 
PRINT AT 19,0; "PRESS Е TO REPEAT RULES." 
FEINT TAB &;"HM TO RECALL MAF." 
FEIHT THE 6i"F TO FLAY" 
LET I#=IHEE' TN 
IF I#="F" THEH GOTO 188 
IF I$z"E" THEH GOTO 5625 
IF I£$z2"M" THEN GOTO 8158 
CLS 
GOSUE = 
Gute 2152 
FRIHT AT 11.8: "1: OU WILL FLAT THE DEFENDER" 
FRIHT AT 13.8; "я: OU WILL FLAY THE ATTACKER" 
LET I}=IHEEYE 
IF I$<>"0" AND I$«€2"H" THEN GOTO 66826 
LET HO=CODE IF 
GOTO ZAR 
IF Wecei2="0" AMD HO=41 ТНЕН LET ИФ= "тоц" 
IF HO=35 OF ¢HO=41 НЫП Ұс = "А" THEN LET We="I" 
PRINT AT 21.8:М%; "AIH"; 


(піпіліліліліліп 


Ur Пк кекке и te ык кекс 


^, 
LU 


cJ C CTI bobo PO кы cm CN Jo PO m m C р JC OS CD CD DR GO Gm 


ma PE qp т үт рг 
T E i m mg mu mir 


mal CD] a m c P m c c cm c c cunc СП onec necne cn 


a IF Hü-2z THEH FRIHT "5"; 

й FEIHT Me" 
7048 FRIHT HT 18,8; "PRESS Е TO FLAT RGRIH" 

reds PRINT “ПЕ x TO STOF" 
FAT TF IHRE'TE= "Р THEN GOTO F1 
Taga IF IHKEV£Z-2"X" THEN GOTO Freie 
rara РБІНТ AT zl. B; “THAHES FOR PLAYING FORTRESS" 
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8520 
8525 
8538 
8535 
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uw 
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FORTRESS (Continued) 
GOTO 3999 
LET I$="A" 
IF CCAP)=Z2 THEN LET I$-"E" 
IF СЕНРо-Зз THEM LET I="D" 
PRINT AT 21,8; "Мт MOVE: ¢"; I$; "ecPRESS MLO" 
IF INKET$<>CHR$ 118 THEN GOTO вй4й 
FRIHT AT 21,11; "е" 
IF HO=38 THEN GOTO 2674 


B GOTO i838 
B LET G=G+1 


IF G21 THEN GOTO 8220 


B LET I$=L$CAP. INT «ЕНІж42419 
о GUTO 858 


FRINT RT zi1.8;"I АМ THIHKIHGecece" 
FOR J=1 TŪ 4 

LET 5512-08 

LET PM-CODE L£$zBF.I5-- 
IF PM<12e THEN GOTO 85 
LET 6£J5--3ü 


г 
ЕВ 


B GOTO S628 


IF C£PMOCZ-CCDP? THEM GOTO 566 
LET G£J5-15 

IF PM=DF THEN LET 15572-30 

GOTO SEA 

IF FHM24 ПЕ FM=3 THEH GOTO Бей 
LET 5(5.О--1й 

GOTO S624 

FOR К-і TO 4 

IF L$CPMKOSCHRS 125 THEN LET 55./0-0512-1 
НЕХТ Е 

НЕХТ J 

LET EK-6Gt125 

FOR J=2 To 4 

IF GCJOSK THEN LET Е-із< 12 

HEST J 

IF К<>-3й THEN GOTO S769 

LET H-3 

GOTO 1118 

FÜR Ізі TO 4 

IF 551046 THEH HEST J 


B LET I$=LẸ<AF. J? 


GOTO S036 
ZAVE "FORTRESS" 
FAH 


Wordsearch 


Wordsearch is a puzzle much loved by commuters for passing the time 
on monotonous train journeys. At the moment, of course, it is not ter- 
ribly convenient to use your computer on a train (although maybe the 
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МПЕПБЕНЕСН 


ій DIM Hf$clü8.185 
15 DIM Lc18» 


24 LET H$z12-2"ZIHCLHIE" 
25 LET L£123-28 
38 LET R£c25- "COMMODORE " 
35 LET LZz5-23 

LET Н%С32-"НРРЦЕ" 


Sa LET ceca. 
55 LET L(4)=5 
ей LET A$CS)="ACORH" 


Ба а А ——— edo 
=J C3 CTl G3 G2 fae GG Ca Cn e cn c on 


mG c cH c cn (n c en c on e cn c 


hoe pu 
cau 02 


LET L(5)=5 

LET A$t6)="EASIC" 
LET 1(63-5 

LET AS¢7="FORTRAN" 
LET 1(72-7 

LET AS<S="PASCAL" 
LET Lé85-6 


LET АЭ = "СОВА" 
LET 1<93-5 


LET A#¢1@9="FORTH" 


LET 1(10>2-5 

DIM 5618,25 

DIM 110,2) 

LET Еш 

DIM Efi32i 

DIM H$c15.1355 

РЕІНТ AT 5.18; "МПЕПБЕНЕСН" 

PRINT AT i8.8;"PRESS C FÜR 
"OR E TO ENTER TOUR OHH WORDS" 

IF INKEY#="C" THEN GOTO 258 

IF INKEY#<>"E" THEN GOTO 158 

EES 

FOR 1-і TO ій 

PRINT AT J#2,6; "WORD HO.";I. 

INPUT T£ 

LET LEJ =LEH T$ 

IF LéJi<i OR LcTJ5218 THEN GOTO 238 

РКІНТ T£ 

LET RH$iI»-Tf 

MEST J 

CLS 

FRIHT AT 18.8; "бЕПІ FORMATION IS IH FAST MODE” 

LET L-5G8R ¢RHD#RHDSRHD 

FAST 

FOF 1-і TO ій 

LET L-LCJ5-1 

LET 55=ІНТ «ЕНІЖ15241 

LET S"-IHT (ЕНІ%15241 

LET IE-IHT «ЕМІЖЗ3-1 


COMPUTER WORDS". AT 13.8; 
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Timex 1000 will feature its own battery pack and flat screen?), but at 
least you will not have to worry about finishing before you arrive at 
Waterloo. 

The program sets up a 15x15 grid of ‘random’ letters, in which 10 
words have been cleverly hidden. The words may run horizontally, 
diagonally or vertically, backwards or forwards, which, even | can 
calculate, makes 8 possible directions. You have the option, of allowing 
the computer to use its vocabulary of 10 (rather single-minded) words, 
or of entering your own words each time. In fact, using the latter option 
does not, in my opinion, make the puzzle any harder (unless you use 
stupid words like 'A,' which will make it impossible), because the com- 
puter will create a new grid every run, so that even with its standard 
vocabulary no 2 puzzles will ever be the same. 

Whichever option you chose, the computer will go into FAST 
mode to set up the grid, which may be a little disconcerting as it looks 
exactly as if the program has crashed! After a few seconds, however, 
the grid will appear, with the 10 words listed by its side. When (if?) you 
spot a word, 3 inputs are required to prove that you have located it 
correctly: 

WORD NUMBER: (1 to 10) 

START (VERTICAL): The vertical coordinate of the first letter of the 
word (1 to F; the Timex 1000 not only has a vocabulary composed en- 
tirely of computer words, it also numbers the grid in hex!) 

START (HORIZONTAL): ditto (horizontal coordinate, 1 to F) 

(It is not necessary to specify the direction of the word; if you get its 
starting position correct, obviously you have located the entire word.) 

Assuming that your entries are correct, the word will be marked on 
the grid in inverse lettering, and an asterisk will appear next to that 
word on the list. Remember that words MAY overlap, so do not 
disregard inverse letters when searching for other words. 

If you make an incorrect guess (as if you would ever do that!), the 
polite message ‘WRONG’ appears, and you go back to step 1. If, after 
several hours, you have still not found all the words, entering ‘QUIT’ in 
reply to WORD NO. ?' will reveal the remaining words. 

If you want to practice before keying in the listing, a sample grid is 
shown on page 129. 


INITIALIZATION AND 'MENU' (lines 1-290) 


Lines 10—115 give the computer its vocabulary. If you are wondering 
why it is necessary to specify the length of each word (line numbers 
ending in 5), when the Timex 1000 has a perfectly good LEN function, 
remember that DIMensioning the string array (line 10) predetermines 
that each array element has 10 characters. Any unused elements will 
be padded out with blanks, so, for example, A$(5) is not "ACORN," but 
"ACORN e”, and LEN А%(5) will always be 10. 
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WORDSEARCH (Continued) 


LET DY=INT &RHDX*35-1 

IF DX=6 AND DY=@ THEN GOTO 356 

LET FK=SX+¢L#DX > 

LET F''-Sv-*CLXDV) 

IF FX<1 OR FX215 OR Ет<і OR ҒҮ>15 THEN GOTO 330 
FOR K=@ TOL 

IF WECSK+CDX#K) , SY+CDY#KD =ASCI.K+1> THEN GOTO 440 
IF MHfCSRA-CDEXK»,SV-CDV«XK55»«»"e" THEN GOTO 336 
NEXT K 

LET 5<7,12-5х 

LET 5(7,22-57 

LET DJ. 15-DX 

LET DéJ,25-DV 

LET R$-R$«R$CJ, TO L*15 

FOR K-8 TOL 

LET W$CSX+CDX#K) , SY* CDPXK»»728$6 J. K*15 

MEXT K 

MEXT J 

FOR J=i TO 15 

FOR К=1 TO 15 


IF W#¢J,K>="e" THEN LET W$CJ,KOzR$CIMT CRHDXLEH R$241) 


NEXT K 

NEXT J 

CLS 

FOR J=1 TO 15 

РКІНТ AT ё, J*1;CHR$ ¢J+156> 

PRINT AT 17%1,0;СНК% CJ4*1565;"e—";M$CID 

IF J<=16 THEN PRINT RT J,18;J; TAB 21;R$4J5 
NEXT J 

PRINT AT 12,19; "TYPE “GUIT SAT 13,20; "TO RESIGH" 
SLOW 

(ЕТ SCORE=a 

PRINT AT 15,6; "WORD NO. 7" 

GOSUE 18848 

IF T#="QUIT" ТНЕН GOTO 2йай 

LET J-CODE Т%-28 

IF Г>ій THEN GOTO Рій 

IF H$cIT.15-"X" THEN GOTO 716 

РЕІНТ AT iS.8;R$CI) 


28 PRINT "START €YERTICAL)" 
4 GÜSUE 1900 


LET x-CODE Т%-28 
PRINT "START HORIZONTAL)" 


[4 GÜSUE imt 
22 LET v-LüDE 7%-28 


IF $i i35 AND S¢J.29= THEM GOTO See 
FRINT "WHEOHG" 
FOR K-1 TO 2а 


750 NEXT К 


GÜSUE 1588 
GOTO ud 


айм LET SCORE=SCORE+1 
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Arrays S and D will hold the starting coordinates of each word in 
the grid, and their respective directions. R$ is a 'dummy' string, the 
significance of which will be seen shortly. W$ is the grid itself, and B$ 
(line 135) is part of the improved ‘delete a line’ routine | promised you 
earlier. B$ is padded out entirely with blanks, and so a screen line can 
be overprinted with the simple command ‘PRINT B$’ (see subroutine 
1500). 

Lines 200-270 allow the user to replace the standard vocabulary 
with other words, if the appropriate response is made to the INKEY$ 
routine (lines 170—190). Note that line 250 ensures that each word is not 
more than 10 characters long, otherwise a 'bad subscript error' (report 
code 2/260) would occur. 

Line 290 is utter nonsense; it merely gives the computer a ‘little’ 
calculation to do so that the message in line 285 will be retained on 
screen for a few moments, hopefully preventing the unwitting user 
from having a heart attack when fast mode is entered in line 300. 


GRID FORMATION (lines 300-660) 


This involves selecting a random starting position for each word (X and 
Y coordinates, lines 330—340), and a random direction (again X and Y 
coordinates, each in the range of — 1 to +1, lines 340—350). Notice that 
these latter 2 lines theoretically allow a word to have a zero X-direction 
coordinate, i.e., the word is totally vertical, and a zero X-direction 
coordinate (totally horizontal)! Philosophers may care to speculate how 
such a word would be represented; for the puposes of this program 
however it is sufficient merely to reject this anomaly, and reselect 
proper coordinates (line 370). 

Having checked that the chosen starting position and direction will 
allow the word to finish within the grid (line 400), the loop from line 410 
to 440 checks to see if the word crosses a previously positioned word. If 
it does, and the letters at the cross-over point correspond, that is alright 
(line 420); otherwise a new starting position is selected (line 430). Once 
a position has passed all these tests, the temporary variables SX, SY, 
DX and DY are stored permanently in their respective arrays S and D 
(lines 450—480). 

Line 490 is very important. It ensures that the dummy string R$ 
consists of all the letters of the hidden words. It is from this string that 
the ‘random’ letters which pad out the grid will be selected, thus 
creating maximum confusion by ensuring that the grid is composed en- 
tirely of letters used in the hidden words, and also that the frequency of 
each letter is similar to its frequency in the hidden words themselves 
(lines 550—570; the actual words having been placed in the grid in lines 
500—520). 

The screen is then PRINTed, while still in fast mode, a simple but 
often-neglected time-saving device. 
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WORDSEARCH (Continued) 
FRIHT HT 1.20 8% 
B26 GOSUE zm 


[яи] 
к- 
m c 


й IF 5СОРЕ-ій THEN GOTO 4m 
Ә LET R$zJoz"x"-H£$CI2 


GOTO ғ85 
IHFUT T£ 
IF T$="QUIT" THEM RETURH 
IF T$="10" THEN LET T#="A" 
IF LEH Т%<21 THEH GOTO 1688 
IF Т%<"1" OR T£2"F" THEN GOTO 1000 
ЕЕТМЕН 
FOR K218 TO 21 
FRIHT AT К,а; BS 
сей НЕХТ Е 
1538 RETURH 
Ha FOR 1-1 TO 18 
GOSUE sae 


se bé QU CECI CO С 
n Cn cn mi c c ci c c en mg c na 
Ve Ca d Qi a Im ke Ut im 


п mr n i CC m Cu 


px 


a 
B 

а НЕТ J 

m GOTO 4688 

в FOR Е-й TO Le Jo-1 

а FRIHT AT Sc I. 134+¢De J. 1 eK O41, SCJ 2540007, 298K 94+1; 
а LET F=FEER 16395+256#PEEK 16333 

B IF PEEK Fziz& THEN FOKE F.FEEK F*12Z2 

я НЕХТ Е 

B RETURH 
a 
B 
a 
a 
B 
EB 
B 
a 
E 
a 


GOSUB 1588 

IF SCORE-i18 THEM РЕІНТ AT 15.8; "С 
РЕІНТ AT 20,8; "ANOTHER GAME стн" 
IF INKEY#=""'" THEN RUN 

IF INKEY#<>"N" THEN GOTO 4636 

EES 

PRINT AT 10.6; "BYE." 

GOTO 9399 

SAVE "HORTISERRCH" 

RUH 


HGRATULATIOHS" 


v m © © © © © © © © © cam cn © n 


M UD te e RR BH Ee Où Où Q0 G0 G3 63 P ы pi Pu 
me ЯН! 
m 
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INPUT HANDLING (lines 670-850) 


This section is quite straightforward. Once again, all actual INPUTS are 
delegated to a single subroutine (1000). Line 1015 reconciles the ap- 
parent anomaly between the decimal number 10 (entered as a word 
number) and the hex number A (a grid coordinate). Notice how Timex 
1000 character codes are arranged so that CODE “9” 237; CODE 
"A" 238, etc., i.e., converting a string input to a number by using 
CODE rather than VAL (as in lines 714, 735, 755) enables the alphabet 
to be used as an extension of the numerals. 


INVERSION SUBROUTINE (lines 3000-3050) 


Called after a correct entry, or by subroutine 2000 after ‘QUIT,’ this 
directs the PRINT AT position to the letter to be inverted (line 3010), 
then uses the DF-CC system variable to detect whether the character 
has already been inverted (lines 3020-3030). 


PROGRAM IMPROVEMENTS 


The following modifications occurred to me after 'finishing' this pro- 
gram. Please feel free to add these features or any others of your own if 
they appeal to you. 

1) Add a timing routine (using system variable FRAMES; see 
‘Clock/Calendar’) 

2) Add an end option to reform the same grid (using a reinvert 
subroutine similar to subroutine 3000), so that several players may 
compete ‘against the clock.’ 

3) Add an end option to allow ‘user-defined’ vocabularies to be 
SAVEd on tape and/or reused immediately. 
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SAMPLE 'WORDSEARCH' GRID 
Here is a typical example of the kind of grid created by this program, 
using its own vocabulary: 


TMS C e TS Ceo] e CD I don P m 


123456789RBCDEF 


РНТЕНГІ ПСЕРСЗЕІГІ 
HTLILCHESKCEEUR 
HERCEFTTHUÜHFFES 
HODCCSFFLIDLCCOGON 
TFCRRSHRLORETILR 
BH''ROFCTHNPOCRU 
AL T HLOTF LPHREHEBCP 
ЕНННРНПЕВШОСЕРР 
ІМШІНІІГІ НОННЕЕР 
CCEIELFSFZSIELCI 
ZESVEDUHCURCTECRL 
HCIRCCUFRFCCHWTE 
RHSLFRHSIHCLRHIEE 
НМТЕПЕТЕННСЕННЕ 
НМІСІЕНОМЕТРЕШЕ- 


WORD HO. F 


e tg me qd os ma e 


SIHCLAIR 
COMMODORE 
AF PLE 
TAHI 
ACOEH 
BASIC 
FOR TRAM 
FRSCRL 
COBOL 


A FORTH 


Note: The Timex 1000 characters are formed in a ‘square matrix’ 
(8x8), whereas this printer produces rectangular (7x6) characters. 
Therefore the grid produced on screen will be perfectly square, unlike 


this reproduction which is elongated.) 
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Kami Kazi Drive 


This one is included for my benefit. It is my all-time favourite computer 
game. You will probably hate it! There are no spaceships, no aliens, no 
moving graphics of any kind—well at least it is different. 

The intention was to create a game which balances the twin 
elements of skill and chance as near perfectly as possible. When you 
think about it, most games, computer and otherwise, either rely so 
heavily on skill that expert players will ALWAYS beat beginners, or so 
much on chance that you might just as well toss a coin to decide the 
outcome. 'Kami Kazi Drive,' however, is organized in such a way that, 
although the expert will USUALLY score better than the novice, less 
skillful players will win sufficiently often for them not to be discouraged. 

(Note: Kami Kazi Drive is essentially a solo game, so 'winning' in 
this context may mean either beating the ‘best so far,’ or setting up a 
personal best, or simply scoring higher than an opponent in a partic- 
ular several-player session.) 


RUNNING INSTRUCTIONS 


As usual, the rules of the game are contained in the program 
listing beginning at line 5020. These will give you some idea of what to 
do, but the best way to understand the game is to have a few trial runs. 

Each game consisis of an unspecified number of moves, and for 
each move 1 INPUT only is required. This should be a NUMBER, in- 
dicating the speed at which you wish to travel for that move. Notice that 
2 non-numeric ‘default’ inputs are acceptable: ‘P’ will maintain the 
speed at which you are traveling at the present time, and Newline (on 
its own) will cause an increase of 40 m.p.h. which is maximum accel- 
eration. Any entry which exceeds current speed, plus 40, will not be re- 
jected, but will also be interpreted as maximum acceleration. 

The race-track style signboards will illustrate the next bend ahead, 
and tell you the maximum safe speed for the bend and the number of 
MOVES (not the distance) before you reach it. Your strategy therefore 
should be to drive as fast as possible while still managing to get safely 
around the bends. Penalties are incurred for: 

1) Braking (i.e., reducing speed) too severely—probable damage 
to brakes; possible damage to tires, and 

2) Cornering at greater speed than the indicated safe maximum— 
certain damage to tires; possible damage to brakes; possible drop in oil 
pressure. 

| will not explain these probables and possibles any further at this 
stage. If you want to work out a mathematically optimum strategy, you 
must first deduce the exact likelihood of each type of penalty by 
unraveling the listing. Alternatively you may adopta 'trial-and-error' ap- 
proach, which may well be just as successful! 
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18 
26 


292 
^ 


36 
95 
188 
185 
118 
128 


KRMI KRZI DRIVE 


DIM N#(16) 

LET 0$=" 15555555555555555555555555555551" 
DIM Е%32> 

LET Ғ-й 

LET 5%-"М.Р.Н." 

(ЕТ P$="0-0" 

LET M#="MILES" 

LET РЕ--і 

DIM BP$C3,7.6»5 

LET B$C3, 10z"eeeT34R T" 
LET В+<3,2)="++13#1 T" 
LET B$CS, =" etH 1" 
LET B$C3, 4»z" t3#1 T" 
LET E#c3,5)="#" 

LET B#¢3,.69="#" 

(ЕТ B$63,79="#" 

LET B$c2,15z"eeT3SIHIA T" 
LET B$iz,z20-"eTSH129T" 
LET B$z2,35-"TS3W1T" 
(ЕТ B#¢2,49="8" 

LET B$iz,So-"g" 

LET B$cz,eoz"g" 

LET B$c2,7v5z"4" 

LET B$ci.loz"eT2RHA4 T" 
LET B$ii,25-"T3SH1294T" 


| LET BEC1,359="T#1lee2#t" 


LET BEC 1, 49="#eeee#" 
LET В%<1,55="#" 

(ЕТ BE¢1,69="#" 

LET BEC1, 7="#" 
GOSUB 5008 

RAND 
LET 
LET 
LET 
LET 
LET 
LET $-8 

LET x$-"OIL" 

LET ''#="BRAKES" 

LET 2$="TYRES" 

CLS 

FOR J=@ TO 28 STEP 2 
PRINT AT 13,J;"eT3T" 
MEXT J 


eu-or 
uw ud uu 
Dies vc Ср С) 


B GOSUE sae 


IF 0<5 ОК T=6 OR Е-й THEN GOTO 1888 
PRINT AT 21.5;"ENTER DESIRED SPEED" 
IHFUT T$ 

IF T#="" THEM LET T$-STE$ ¢48+5 9 

IF T#¢13="F" THEH LET Т%-5ТЕ% 5 


132 


My Timex Sinclair 1000 


Notice that the ever-decreasing oil pressure is unrelated to your 
driving tactics (apart from the possible drop for cornering too fast, as 
mentioned above). This means that the game will NOT go on for ever, 
so the 'ultra-cautious' strategy of keeping within all speed limits is not 
(generally) to be recommended. 

The game is over when either your tire efficiency or brake efficiency 
has dropped to zero, or your oil pressure has fallen to below 5 p.s.i. 
(Sparing no expense to ensure absolute realism in this game, | drove 
my Ford Capri for several days with falling oil pressure, and can certify 
that 5 p.s.i. is indeed the point at which engines tend to blow up.) 
Players who beat the previous best are invited to enter their name, and 
this will subsequently be displayed together with the 'target' score. An 
option is provided at the end to SAVE the best score on tape as a target 
for future games. 


NOTES 
The 3 main sections of the program are: 


Initialization/Rules 10-180 and subroutine 5000 
Game Loop 190-390 and subroutines 

500, 700, 800 and 900. 
Ending 1000-4110 


Obviously the Game Loop is of prime importance, so | will explain 
this section in detail. 

Lines 190-390 form a ‘game handling’ loop, which accepts the 
user input and then delegates all other aspects of the program to its 
various subroutines. The only exit from the loop is in line 195; until any 
of the conditions specified in this line are satisfied, the loop will simply 
continue to accept inputs and delegate accordingly. 


INSTRUMENT PANEL—SUBROUTINE 500 


The figures on the instrument panel are updated almost every move, 
so in fact the entire panel is reprinted each time. Line 500 prevents the 
signboard (see subroutine 800) from being reprinted except after a 
bend has been negotiated. Line 580 prints a ‘thermometer’ type 
speedometer which serves no useful purpose whatever (a digital 
speedometer is provided as well), but enhances the screen display! 
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KAMI KAZI DRIVE (Continued) 


FOR 1-1 TO LEN T$ 

IF T$CJoX"à8" OR T$CJ52"9" THEN GOTO 210 
NEXT J 

LET P=VAL T$ 

PRINT RT 21,0;Е% 

IF P<S-4@ THEN LET B=5-46 

IF F<S-1@ THEN GOSUB 700 

IF Р>5+48 THEN LET Р-5440 

LET S=P 

LET "2-1 

LET 0-0-ІНТ <ЕМІЯ5> 

IF =-1 THEN GOSUB 8080 

IF Y=6 AND S>KX THEN GOSUB 900 
LET D-D«IHT ($7105 

IF <ø THEN LET B=G 

IF T<@ THEN LET T-8 

IF 0<20 THEN LET x*$-"QIL" 

IF В<=25 THEN LET Y$=" BRAKES" 

IF Т<-25 THEN LET 2%="ТУ 

GOTO 136 

IF L>@ THEN GOTO 550 

FOR J=1 TO 7 

FRINT RT 7%2,7;В%(Х,70 

MEXT J 

PRINT RT 60,6;х5; "е";5% 

PRINT AT 11,6; +; "AHEAD" 

LET J-S718 

IF J=@ THEN LET J=1 

IF J>36 THEN LET J=36 

PRINT RT 14,8;D$«1 TO Jo; E¢¢J TO) 
FRINT AT 15,8; "SPEED"; TAB 10:9: "++"; TAB 15;5% 
PRINT X$;TRB 10;0;"€";TRB 15;"Р.5.1." 
PRINT $3 TAE 18;B;"€e-";TRBE 15:F# 
PRINT 2%; TAB 1@;T;"*e¢"; TAB 15; F% 
PRINT "DISTANCE"; TAB 18;I;TRHB 15;М% 
PRINT "TARGET"; TAB ій; Е; TAB 15;M$;TRB 22; М 
LET L=¥ 

RETURH 

LET 2=INT :ЕНІЖ2 

IF Р<5-2й THEM LET Z=INT «ЕМІЖЗ> 
IF Р<%-38 THEN LET 2-2 

IF 2>8 THEN LET Е-Б-1й 

IF #=2 THEN LET T=T-18 

БЕТПЕН 

LET X-IHT «ЕМІЖбзе1 

LET xx-WNX*20 

LET S=INT (х/2%.59 

LET т-ІНТ ZRHIX4243 

RETURH 

LET T=T-“{CIHT ЕМЕ +1 505-9 ә 
LET B= 22-227 

LET üzü-ZRHI« 
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BRAKING PENALTIES—SUBROUTINE 700 


Three fixed penalties are defined, and 1 is chosen according to the 
decrease in speed. Note that the lowest 'penalty' is in fact no penalty at 
all: A decrease in speed of between 11 and 20 m.p.h. will have a 50% 
chance of incurring no penalty, 21-30 m.p.h. will have a 33% chance, 
and greater than 30 m.p.h., no chance. A small decrease in speed will 
not cause the subroutine to be called at all (line 265), and a large 
decrease will incur a fixed penalty (line 270) IN ADDITION to the penal- 
ty imposed by the subroutine. 


SIGN BOARDS-SUBROUTINE 800 


This is called once by line 180 (to display the first bend) and thereafter 
by line 310 whenever a new bend is required. Line 800 selects a ran- 
dom number in the range 1 to 6, which defines the severity of the bend. 
XX (line 810) is the number converted to an actual speed (20 to 120 
m.p.h.), and line 830 then determines which of the 3 signboards (in- 
itialized in lines 60—87) will best illustrate the bend's sharpness. Finally, 
line 820 selects Y, the number of moves before the bend is reached, in 
the range of 3 to 6. 


CORNERING PENALTIES-SUBROUTINE 900 


Line 900 ALWAYS imposes a tire penalty when the safe speed is ex- 
ceeded; the penalty may be either 1 or 2 times the amount of the ex- 
cess. Lines 910 ana 920 occasionally impose brake and oil pressure 
penalties as well. 
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КАМІ KAZI DRIVE (Continued) 


RETURN 


LET uis ‘To 173="CRASH" 

LET A€f2.13 TO 173-"CREHSH" 

IF O24 THEM GOTO 1434 

LET R$£zi.is3 TG ifo="BoooN" 

LET ня(2,12 TO 175-"BÜüOODM" 

FOR J=4 TO zB 

PRIHT AT 5,.B8;RH$CIÁA2-IHT 47723419 
IF J-5 OF 1511 THEH GOTO i855 
РЕІНТ AT 1,08:ЕЖ 

HEXT J 

CLS 

IF LF THEM GOTO 28да 
FRIHT AT 19,8; "FRESS Е TO РІНТ AGAIN" 


B PRIHT AT 13,8; "ОЕ x TO STOP" 


IF IHKE'*£-"PF" THEM GOTO 35 

IF INKEY$<>"8" THEH GOTO z636 

GOTO 4444 

PRINT D;"e€IS THE BEST SCORE 50 FAR" 
РЕІНТ "ENTER YOUR HAME" 

IHPUT H 

LET Ғ-П 

РЕІНТ AT 5,8; ec—c---IELL 10+"; НҒ 
GOTO 28 30 

CLS 

PRINT "THE BEST SCORE ISe";F;"e";M$ 
РЕІНТ "SCORED Bre"; HF 

IF F&-FE THEN GO TO 9999 

| LET РЕ-Ғ 


Й FRIHT AT 18,8; "ТНІ IS BETTER THAN THE FREYIOUS" 


5ü PRINT "BEST AS HELD ON TOUR ТАРЕ" 


даға 
4980 
4026 
4188 
4115 
аве | 
5818 
5214 
5816 
5818 
5828 


inen 
ru i 
+ бл 
i gn 


inn 
D m 
m cn 
ma ami 


PRINT AT 15.B8;"IF YOU WANT TO SAWE THIS SCORE" 
FEINT "START TAPE. THEN PRESS 5" 
РЕІНТ "ZüTHERHISE FRESS xə" 
IF IHKET£-"S" THEM GOTO 3818 
IF ІНЕ" RES "и" THEM GOTO 4436 
CLS 
FRIHT TAE 2; HAUT ЕНГІ DRIVE" 
PRINT AT 19,3; "00 TOU WANT IMSTRUCTIONS?" 
IF INKEYS= PH" THEH БЕТМЕН 
IF IHKET$Z^"Y" THEH GOTO 5816 
FRINT AT 3.8;"ТНЕ OBJECT OF THIS¢+GANE*S+1IS¢+TODRIVE A 
«ЕНЕ AS PUSSIBLE++BEFORE' ‘OUR CAR CRASHES 
HOF BLOWS UP." 
РЕІНТ 
FRIHT "ПЕУІШІБІТ YOL WILL COVER GREATERDISTAHCE 
+BY DEIVIHG EAST. 
FRIHT 
РЕІМТ "HOWEVER. -+CORHERING++AT+++EXCESSSPEED. OF 
CERHEIHG TOO++SEVERELY. CAN DAMAGE 
TOUR HEALTH." 


D 
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ENDING 


Much of the end routine of ‘Kami Kazi Drive’ is cosmetic. That is, it is 
not vital to the game, but adds the finishing touches which distinguish 
'work in progress' from a completed program. However, the SAVE 
routine at line 9000 is unusual, and deserves some comment. 

Before І explain the various PEEKs and POKES, let me pose you a 
common programming problem: Very many programs require a 'Data 
tape' (i.e., in the case of the Timex 1000, a copy of the program) to be 
recorded after a run in which data has been altered. Most business pro- 
grams will require this, and Kami Kazi Drive requires a new tape to be 
made if the 'best score so far' is to be retained. Importantly, this 
'Record Data Tape' option (or command) must be the VERY LAST ac- 
tion taken by the user, and there should be no further chance of amen- 
ding data once the tape has been made. 

A normal ‘programmed save’ (i.e., the inclusion of SAVE as a pro- 
gram line, followed by RUN, or GOTO. . .) will result in the program re- 
running when the SAVE is complete. This is just a Timex 1000 quirk, 
and is usually of no importance; in fact, when using the GOTO 9000 
convention adopted throughout this book to SAVE a program in the first 
instance, it is rather encouraging to see the program reappear! Unfor- 
tunately, there is nothing more absurd than for a program to re-run 
AFTER the user has indicated that he has finished. 

The problem then is how to write a programmed save routine 
which will recognise: 

1) Whether the SAVE routine itself has just been called, in which 
case in will NOT run, or 

2) whether the program has just been LOADed, in which case it 
WILL run, or even 

3) whether the SAVE routine is being called for the first time, i.e., 
from an 'immediate' command, in which case it will also run. 

This is not as easy as it might sound. Remember, that a program is 
LOADed in exactly the same state as it was SAVEd, and that execution 
will continue immediately from the line following the SAVE instruction. 
Therefore it is impossible to use any variables as flags to indicate 
whether the program is to run or end. 

The solution used here makes unconventional use of a Timex 
1000 system variable (16390 MODE). You will see from the Sinclair 
manual (p. 177) that the early system variables are NOT saved. 
Therefore it is possible to use MODE not for its normal purpose (to in- 
dicate the kind of cursor to be used), but as a flag! MODE is given the 
value 4 when the program is SAVEd (line 9010), and of course retains 
this value at line 9030, causing the program to fall through to its natural 
end at line 9999. When the tape is next LOADed, MODE will not have 
this strange value (4 indicates Graphics mode!), and so line 9030 will 
cause a branch to the desired line 90. 
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KAMI KAZI DRIVE (Continued) 


PRINT 

FRINT “ALSO. YOUR+CAR++HASANS+ENGINEFAULT, AHI THE 
«OIL PRESSURE WILLDROP UNCONTROLLABLY’. " 

PRINT 

PRINT "YOUC+MUST WORKOUT 44e THE4EBESTETRATEG" 
«Вт PLAYING THE GAME." 

PRINT AT 21,3; "PRESS ANY КЕТ TO CONTINUE" 

IF IHKE'T$-"" THEN СОТО 662 

CLS 

PRINT "THE INSTRUMENT PANEL «АІ «ТЕШ YOUe+y0UR 
+4CURREMT¢+SPEED. €«—-JILPRESSURE, THE 
+EFFICIENCY OF YOURBRAKES АНІ TYRES 
+(PERCENTAGE> ASWELL AS THE DISTANCE 

4COVERED ANDTHE BEST 50 FAR." 

РЕІНТ 

FRIHT "A SIGN BOARD WILL ILLUSTRATE THEHEXT BENT 
<AHEAD, ANDe+WILL¢+SHOWTHE MAXIMUM SPEED 
ATMHICHEEITMAY BE SAFELY NEGOTIATED. " 

FRINT 

РКІМТ "SIMPLY ENTER THE SPEED WHICH TOUMISH TO 
<DRIVE AT EACH MOVE." 


PRINT 

FRIHT "MAX. ACCELERATION=46 М.Р.Н./МОУЕ" 

FEINT 

PRINT "< JUST PRESS H&L FOR MAXIMUM, =0REHTER 7 F7 


€TOcec-HRIHTRINCeC-CURREHTSPEED. >" 
PRINT AT Z1,9;"PRESS ANY KEY TO PLAY" 
IF INKEY$="" THEN GUTU ій 
RETURH 
LET F=@ 
LET PR--1 
FORE 16336, 4 
SAVE "KRMI KAZI DRIVE" 
CLS 
IF F<>PR THEN RUN 
IF FEEK 1633@=@ THEM GOTO за 
РОКЕ 16390,0 
CLS 
PRINT RT 11,3; "THANKS FOR PLR'IHG. BTE." 
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The other half of the problem is much simpler: lines 9000 and 9005 
are never called by the program, but are only used by the immediate 
command GOTO 9000. Therefore a flag device may be used to in- 
dicate whether the program should run (after an immediate SAVE) or 
end (after a programmed SAVE). In this case, F and PR always have 
the same value at the end of a run, so setting them to different values 
(any values would do) will cause the branch in line 9025. 


STRATEGIC CONSIDERATIONS 


As | am the writer of this program, | suppose that for the moment at 
least, | must be the world's best (i.e., only) player. My own personal 
best score, achieved by adopting a driving technique not dissimilar to 
that which | use in real life, is 703 miles, in a game which terminated in 
а crash at over 400 m.p.h.! 

While you may be able to better this score with a strategy of your 
own, the following points may help you in getting beyond the ‘beginner’ 
stage: 

There is no point in finishing a game with any tires left if you have 
run out of brakes. (Or vice versa; or with either if you have no oil 
pressure). If you do not exhaust all 3 items, you have almost certainly 
missed some scoring opportunity. 

It is possible ONCE (only) to get away with a spectacular braking 
feat. Reducing speed by 40 m.p.h. or more will cost you 50% of your 
(original) brakes, and 10% of your tires. Use this to maximum advan- 
tage by accelerating into a bend, and braking at the last minute. If you 
are traveling at less than 300 m.p.h. when you use this ability, you have 
probably wasted it. 

Cornering at ‘safe +30’ m.p.h. MAY only cost you 30% of your 
tires (or it may cost you 60): Try it at a 120 m.p.h. bend, and then ac- 
celerate, hoping that the next bend is a long way ahead! 

Even when you are driving 'sensibly' (usually in the early part of 
the game), calculate your braking carefully. Take care not to waste odd 
points by driving slower than you need to. 

Learn to recognize the point where you cannot possibly survive 
the next bend, and ACCELERATE. 

Good luck. . . and drive careLESSly! 
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Chapter 10 
Functional Programs 


Clock/Calendar 


This program was written one day in February. | had thrown away last 
year's calendar, and realised that | hadn't yet bought a new one. The 
easiest way | could think of to find out the date was to write the pro- 
gram! This may not, at first, seem to be a particularly sound economic 
proposition, as a Timex 1000 with RAM-pack costs rather more than a 
normal calendar, but if you use your computer exclusively for running 
this program, it will have paid for itself by the mid 22nd century. 

The screen will display any chosen month of any year, together 
with a menu of 6 options as follows: 


N and L for Next and Last month respectively 

D to mark a particular Date 

C and X to turn the clock function off 

B to blank out the menu section for a tidy screen display. (The 
menuis still operative even when it has been blanked out, and pressing 
B again will return it to the screen.) 


The clock function deserves some special mention. The Timex 
1000 does not have a 'real-time clock' as some other computers do, so 
it is necessary to create one by using the system variable FRAMES at 
address 16436/7. (The Sinclair manual suggests using the PAUSE 
statement, but this is only an indirect way of accessing FRAMES.) TIM 
(line 2) is a unit of time unique to the Timex 1000, being the number of 
seconds it take for the ms byte of FRAMES (16437) to decrease by 1. 
The actual decrease (variable D) in value of this byte is detected in 
subroutine 3500, and variable S is increased accordingly (line 3525). 
The subroutine is called constantly during the normal display loop 
(lines 700—860), but when a menu item is selected the clock 'freezes,' 
and is reset to the correct time as soon as the loop is re-entered. 

A word of warning about using address 16437 for timing purposes: 
The value of this address decreases steadily from 255 to 128 (NOT 
zero) It is possible to poke some lower value into 16437, and it will con- 
tinue to decrease as normal, until it reaches zero, at which point the 
computer will be thrown into confusion, and will take the easy way out 
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CLOCK."CRLEHIHRE 


1 LET Ттсізег 

LET TIN=ZS Seo 

3 LET ТІМ=ТІМЖ. 292 

if LET М%-"ЖУНМИНЕТЖҒЕВЕЦПНЕТЖННЕСНЖНРЕ I LMA TUNES TUL AUG T x 
SEP TEMNBER#0C TOBER#HOVENBER#DECEMBER€" 


ax 


Ей LET H£z"elezesejje5-6€o5-—s-s31giiizisi4isieéiv7isiszai12z 
23E42526Er 2823356451" 

38 LET D£-"SUHPMCOMTUEHETITHUFR ISRT" 

44 LET алық санны таш 

S8 DIM Б%із2: 

Ей LET E= | 

үн LET C-ü 

188 FRIHT TRE 12; “CALENDAR” 

118 PRINT AT 4.8;"DO YOU REGUIREC";TvT;"e?" 

126 IF IHKEvYf$-"'" THEM GOTO 208 

138 IF INKEY#<¢>"N" THEH GOTO 126 

148 PRINT AT 4.8; "EAR REQUIRED 744" 

158 INPUT T$ 

166 IF LEN T$z24 THEN GOTO 150 

178 FOR J=1 TO 4 

175 IF T$C(OJOo«"B" OR T$CJo»"29" THEN GOTO 158 

158 НЕХТ J 

185 LET TY=AL T 

196 IF ТҮ<1753 THEN GOTO 1568 

195 PRINT RT 4.14; ": e"; TT 

200 PRINT AT 6,8;"MONTH REQUIRED 2" 


285 IHFUT T$ 

218 LET M#=M#+T$+"%" 

215 LET L=LEN T$ 

226 IF =й THEM GOTO 263 

225 IF T#€19<"A" THEN GOTO зва 
236 LET М-й 

235 FOR J=i TO LEN М 

oda IF M#cJo<o"e" THEN GOTO 255 
245 LET М=М+1 

256 IF T#=M#¢J+1 TO J+L> THEH GOTO 315 
255 NEXT J 

зай IF ісі THEW GüTü- 316 

365 IF T£$£zzo«c"üa" OR T$t232"2" ПЕ 122 THEN GOT 
318 LET M=VAL T$ 

315 IF Мі OF М>іг THEN GOTO 289 
326 CLS 

325 IF C THEN GOSUB 35668 

336 LET т=8 

335 FOR Ісі TO LEN M$ 

348 IF M£$zIo-"x" THEN LET '=Y+i 
345 IF т=>М THEH GOTO 3664 

358 LET = 1+1 

333 LET ET 

364 IF т=21 THEH GOTO 378 


[ex | 
feo 
[iw] 
cm 
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(i.e., crash!). This is why PAUSE statements, if you insist on using 
them, should be followed with a POKE 16437,255 (mentioned, but not 
explained, on p. 127 of the Sinclair manual). 


PROGRAM NOTES—THE CALENDAR 
The 4 main stages of the calendar part of the program are: 


Initialization 1-50 

Input 100-370 

Calculation 380-440 

Display 450-570 
INITIALIZATION 


Four different types of data string are used: The month names (M$) are 
of varying length, so they are separated by asterisks; the day names 
(D$) are all 3 letters long, so there is no need for any separating symbol; 
N$ seems like a waste of time, but putting a list of consecutive numbers 
into a string allows ease of manipulation, and also ensures that single- 
digit numbers will be aligned correctly with dual-digit numbers; finally 
C$ is a CODE string—look up the CODE of each element and you will 
see that these are the number of days in each month. 

TY (This Year) is set to a default value in line 1, which saves 1 in- 
put, and B$ is the 'blank line' string once again. 


INPUT 


The ‘year’ input is straightforward: Newline will cause the default value 
of TY to be implemented, otherwise any 4-digit year will be accepted 
(although line 190 excludes ancient dates prior to the introduction of 
the present calendar system). 

The 'month' input is more complex, as it will accept and verify 
either a numeric (e.g., 12) or an alpha (e.g., DEC or DECEMBER) entry. 
The two possible types of entry are verified by separate routines, line 
225 detecting numeric entries and branching to line 300 to verify these. 
(The numeric section merits no discussion as we have seen this many 
times before.) 

An alpha entry is checked by first tagging the entry itself onto the 
end of M$ (line 210). This ensures that when M$ is searched for a 
‘match,’ one will always be found, evenif the entry was not a valid 
month. The loop from line 235-255 detects the entry M$ (only if it is 
preceded, in M$, by an asterisk, so entry 'A' will be matched by 
‘April’, not ‘jAnuary’), and sets the month number M accordingly. Note 
that because a match will always be found, line 250 will always cause 
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CLOCK/CALENDAR (Continued) 


365 NEXT J 

376 LET T$-M$«L TO J-1> 

380 LET LY=6@ 

385 IF TY/4<SINT «TvV/45 THEN GOTO 468 

390 LET LY=1 

395 IF TY71QG=INT (TY/16G> AND T"^480«42INT (TY/46005 
THEN LET L''-à 

400 LET N-CODE C$CM5 

485 IF M-2 AND L'Y THEN LET HzH*1 

418 LET = 

415 FOR J=1 TO M 

4280 LET "-T*CODE C$«CJ) 

425 NEXT J 

438 IF LY AND M21 THEN LET v=v+1 

435 LET '""-41-H*-CTv-1»0X36S5*IMT CET r-19/45-INT ((ТҮ-122100; 
*INT ¢¢TY-197460> 

440 LET т=т-7ЖІНТ Сти? 

4580 PRINT RT 8,8;TV; TAB €31-LEH T$5/2;T$; TAB 28; TV 

4680 FOR J=1 TO LEN I$ STEP 3 

465 PRINT AT J^3X*2*2,.8;D$CJ TO 142; 

4га NEXT J 

488 LET Р%-М%% TO НЖ2> 

506 FOR 1-1 TO Y 

505 LET P$-z"ee"«P$ 

518 NEXT J 

515 LET R#=P$ 

928 LET DATE=G 

S36 LET х-5 

535 LET Y=1 

S548 FOR J=1 TO LEN P$ STEF 2 

545 LET т=т+2 

556 IF *«16 THEM GOTO S65 

555 LET "23 

564 LET X-X*4 

565 PRINT RT т, РЈ TO J+1> 

Sra NEXT J 

Sro IF B THEN GOTO 700 

660 PRINT AT 17.8;"L-LRST MONTH: +4H=NEXT MONTH" 

618 PRINT AT 19.8;"C-CLOCK COND¢+:<<HECLOCK <OFF)" 

626 PRINT RT 21.8;"D-SET DATE¢+++:¢<B=BLANK TEXT" 

ТОЙ IF C THEN GOSUB 3566 

S66 IF INKEY¢="B" THEN GOTO 1888 

$16 IF IHKE*v'$-"L" THEN GOTO 26888 

S26 IF INKEY#="N" THEN GOTO 2164 

esa IF INKEY#="C" THEN GOTO 5868 


848 IF IHKEY#="%" THEN GOSUB 4888 
S58 IF IHKEV$-"D" THEN GOTO 5648 
Ses GOTO гай 

1844 IF МОТ B THEN GOSUE 1506 
1818 LET B-HüT E 

1626 IF IHKEV£-"E" THEN GOTO 14264 
1835 GOTO 278 
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an exit from this loop eventually, so no line is required after line 255 to 
prevent the ‘numeric’ routine from being entered accidentally. Non- 
valid entries will result in M having a value greater than 12, and will 
therefore be rejected in line 315. 

Once an input has been accepted, another routine (lines 330-370) 
extracts the complete month name from M$. Finding the START of the 
month name is easy; a 'counter' variable, Y, counts the number of 
asterisks, up to the value of M. To find the END of the name, one more 
asterisk must be detected, so Y is given the dummy value of 20 (line 
355), and the loop is continued until Y equals 21 (line 360). 


CALCULATION 


Given that the final calendar displayed on screen will always start with 
Sunday at the top, the object of this section is simply to determine how 
many 'blank' days there are before day 1 is printed. This is done in 3 
steps: 

1) Determine whether TY is a leap year: The leap year flag LY is 
first set to zero (no), then to 1 (yes) if the year is divisible by 4, then back 
to zero if the year is divisible by 100 but not by 400. (Don't blame me; 
that's the way it's been done for the past 400 years!) 

2) Calculate the number of days since the year dot: lines 405-430 
set Y equal to the number of days so far this year (I will refer to TY as 
‘this year’ for simplicity, although it may of course be any chosen year), 
and line 435 adds the number of days in all previous years, according 
to the same rules regarding leap years. 

3) Reduce the result module 7 to give, amazingly enough, the re- 
quired answer (line 440). 

In the course of all this, N has been set to the number of days in the 
chosen month (lines 400—405). 


DISPLAY 


The day numbers to be displayed (P$) are extracted from N$, and then 
the required number of blanks (calculated above) are tagged onto the 
start of P$ (lines 500—510). An exact copy of P$ (R$) is taken in line 515, 
as P$ will be manipulated by the 'Date' option (see below). The calen- 
dar is then printed by a standard FOR-TO loop, but with coordinates X 
and Y being incorporated so that each number is printed at the correct 
position. 


THE OPTIONS 


The menu (lines 600—620) adds a certain amount of interest to this pro- 
gram; at least you can do something other than just look at it. 
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CLOCK/CALENDAR (Continued) 
isaa FOR J=17 TO 21 STEP = 
1518 РЕІНТ AT J.&@:E# 
1526 НЕХТ J 
1538 БЕТПЕН 
рва IF T?-175z AHD М-ій THEN GOTO кий 
2618 LET М-М-і1 


shee IF М2 THEM GOTO 315 

2434 LET M-iz 

2048 LET T*"-T*-1 

ZSG GOTO 328 

2180 IF Tr=2223 AND M-iz THEH GOTO EE 
2116 LET М=М+1 


zizB IF Н<>із THEH GoTo 315 

2134 LET М=1 

2148 LET Tr=Tr+i 

2156 GOTO 328 

LET C=i 

GOSUE 1506 

ЕРІНТ AT 19,8; "TIME HOURS?" 
GOSUE 31464 

LET Hi=H 

PRINT AT 21.8; "TIME ZMIHS3»7?" 
GOSUE 3144 

GOSUB 156868 


GOSUE 5644 


= 
Mt m mr E АЯ a a a 


e n Cam dep OMe n а 


GOTO 575 

IHFUT H$ 

FORE 16457, 295 

(ЕТ 5-й 

LET Р-252 

3124 IF H#="" OR LEN H$2z THEN GUTO 3188 
3125 FOR 1-1 TO LEN HF 

3134 IF H£iIoc"B" OR HFCT9>"3" THEH GOTO 3188 
3135 NEXT J 

3148 LET H=YAL Hf 

3145 RETURN 

3588 LET Рі=Р 

3585 LET Р-РЕЕК 16437 

B LET D-P1-F 

IF D<@ THEN LET 1=1+125 

IF НОТ I! THEN GOTO 3388 

3 LET 5-ТІМЖІН5 

IF S{68-¢TIMN/’2> THEH GOTO 3366 

LET 5=5-60 

LET H-H*1 


ол QI GI GI өзім GI GI 6 6 69 G3 6 LI 


me e be dir 


Cn c cn e cmn c cn ex cn en en c cn c 


a 

EH IF HzéB THEN GOTO 3644 
вв LET HzB 

"BÓ LET Hi=Hi+i 

ro IF Ні=24 THEN LET Hizü 
йа LET H#=":" 

із IF Н<ій THEH LET НҰ=" :й" 
ов LET H£$-STFE£ Ні+НҰ+5ТЕҒ H 
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Options 'C' and 'L' use very similar routines (2000 and 2100) to 
recalculate M and reform the display for a different month. 

Option ‘D’ uses the routine at line 5000 to reformat P$, inserting in- 
verse characters to mark the chosen date. Notice that lines 5045-5060 
allow you to ‘turn off’ the date marker by entering the date which is 
already shown in inverse. (Variable DATE, which normally takes the 
value of the marked date, is given the default value of zero in line 520). 

Option 'B' uses the simplest routine ever (line 1000) to print blank 
lines over the menu, and reverse the flag B, so that when B is pressed 
again, the menu will be reprinted. (This happens so quickly that line 
1020 is necessary to ensure that key 'B' has been released, otherwise 
the menu would flash on and off repeatedly.) 

Option 'C' turns on the clock, as described below, and 'X' simply 
reverses flag C, which indicates whether the clock is to be displayed. 


THE CLOCK 


The principle of the clock function has already been explained. | should 
draw attention to line 3, however, which is a small adjustment factor to 
TIM. Remember that FRAMES was not intended as a real-time clock, 
and you will probably find that any program which uses it as such will 
require some adjustment of this nature to give complete accuracy. 

Selection of option 'C' calls 2 subroutines: subroutine 3100 
handles the initial time inputs, and subroutine 3600 converts the cur- 
rent time into a 5-character inverse display. Option 'C' also sets flag C, 
so that the main ‘time update’ subroutine 3500 is called at regular 
intervals. 

Subroutine 3500 detects any change in the value of PEEK 16437, 
and, if there is a change, increases S, the seconds counter according- 
ly. The seconds themselves are not displayed, as they are not updated 
EVERY second, but every 5 or 6 seconds (or longer, if the clock is 
frozen). Line 3530 however increases the minutes figure when S 
reaches a value within about 2.5 seconds of the exact minute, rather 
than waiting for S to exceed 60, thereby doubling the accuracy of the 
displayed clock. 


NOTE 


Although the Gregorian calendar, on which this program is based, was 
introduced in 1582, it was not adopted in Britain until 1752. You may 
make the following amendments to allow the display of earlier 'non- 
British' dates:- 

190 IF TY 1583 THEN GOTO 150 

2000 IF TY = 1582 AND M = 11 THEN GOTO 600 
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3638 
3646 
3650 
3660 
3346 
3319 
4008 
4816 
4026 
эй 
5805 
3816 
9815 
S828 
5025 
2030 
5835 
9040 
5045 
5050 
5055 
3868 
5065 
5670 
5675 
50850 
5085 


5690 
54495 
3886 
3616 


CLOCK/CALENDAR (Continued) 
IF LEN H#=4 THEN LET H$="6"+H# 


FOR J=1 TO 5 

LET H#¢J>o=CHR# “CODE Н%(72%1282 
NEXT J 

PRINT RT 1.13;H$ 

RETURN 

LET C-8 

PRINT AT 1.13;B$« TO 5) 

RETURH 


GOSUB 1568 

PRINT RT 19,8;"DRHTE ?" 

INPUT 0% 

IF ü$-"" THEN GOTO 5610 

FOR 7-1 TO LEN 0% 

IF Q$¢Jo<¢"G" OR BFC JO>"3S" THEN GOTO S616 
NEXT J 

LET ü-VRL Q$ 

IF GSN OR 0<1 THEN GOTO 5616 
IF ü«»DHTE THEN GOTO 5865 

LET P$-Ef 

GOSUB 1506 

GOTO 528 

LET DATE=G 

IF LEN @$=1 THEN LET G#=~¢"+0¢ 
FOR JI-2XIHTE-1 TO LEH P#+1 


IF Р%С72<>0%512 OR Р%(,7%12<>0%%22 THEM НЕХТ J 
LET P$-R$c TO J-15*CHEf (CODE GQ$clo-12854CHE$ 


(CODE ü$c2541286o04ER£$CJ42 TO > 
GOSUB 1506 
GOTO S38 
SAVE "CLOCK/CALENDAR" 
RUN 
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Scroll 


Yes, | know that the Timex 1000 has a 'SCROLL function already, and 
very useful it is too; not many other computers feature a programmable 
scroll command. But wouldn't it be nice if the screen could be scrolled 
horizontally as well as vertically? This little machine code routine does 
exactly that, and can be used to enhance your screen displays by 
pushing any unwanted information off screen to the left. 

The Basic program shows the routine in action. Note that the 
routine itself works in the same way as the normal SCROLL command: 
it scrolls 1 line (or in this case, 1 column), at a time, and can therefore 
be included in a FOR-TO loop to clear the entire screen. 


NOTES—MACHINE CODE ROUTINE 


The routine works on each screen line individually, by taking each 
character in turn (ignoring the first character, hence HL is increased 
TWICE from the D-FILE value), replacing it with a space, 'back- 
spacing’ 1 position (DEC HL), and replacing the character in this new 
position. This process is repeated a further 30 times until each 
character has been shifted 1 position to the left. The entire loop is then 
repeated for the second screen line, and so on. 

As printed, the routine will scroll all 22 screen lines. However, it is 
possible to specify the number of lines to be scrolled by altering the 
18th byte of the code. The A register is used as a counter of the number 
of 'scroll loops' executed, and when this reaches a limit value (CP 22), 
the routine is terminated (RET Z). To scroll just the top half of the 
screen, alter the 18th byte to hex ØB (decimal 11), so that the routine 
terminates after 11 scroll loops. The simplest way to do this is to POKE 
the required (decimal) value into the appropriate position in the code, 
as illustrated in the Basic program, where all the possible values (1 to 
22) are poked in turn into address 16531 (i.e., the address of the 18th 
byte, assuming that the routine begins at address 16514). 


NOTES—BASIC DEMONSTRATION 


The basic program is totally silly, and | certainly do not intend to discuss 
it at any great length. Apart from demonstrating the machine code 
scroll, and the effect of POKEing 16531 (as mentioned above), it does, 
however, serve as an example of the simplest possible form of Machine 
Code Loading: the bytes of machine code are typed DIRECTLY from 
the keyboard into a Basic REM statement. 

You can check that the Basic 'characters' in line 1 do in fact cor- 
respond to the bytes of machine code by referring to pages 181-187 of 
the Sinclair manual. Byte 1, AF, corresponds to the character 'Inverse 
J,' so why not type an Inverse J into the REM statement, rather than 
POKEing it there? 
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AF AOR A CLEAR À FEG. 
2A OC 40 LD HL, (1659631:  D-FILE 
06 1F COUNT LD Б,21 COLUMN COUNTER 
23 LOOF INC HL 
ез INC HL 
56 LD ID,*HL» OLI! CHARACTER 
36 00 LI D “HL).@ PEINT *SERHCE:' 
2E DEC HL 
е ІП HLD PRINT OLI! CHF 
14 F7 LINE 247 LOF 
ЗС INC A LINE COUNTER 
FE 16 GP 22 Ia IT 220% 
ce РЕТ 2 IF YES. RETURN 
e3 INC HL 
23 IHC HL NEXT LIHE 
18 ED JF 237 COUHT 


Ж Or whatever, see notes. 


BASIC DEMONSTRATION 


1 REM JE£RNI'TT 137720«Ғ?С RUN Ы RETURN -COS 77 GOSUB 


с POKE 16522,86 
3 РОКЕ 16526,114 
108 FRINT 
116 FOR J=1 TO 21 

120 PRINT RT 1, 51; "ж" 

136 NEXT J 

140 FOR J=1 TO 55 

IF Ј<=22 THEN FOKE 16531,J 
160 RAND USF 16514 

IF 7<>25 THEN GOTO 200 

180 PRINT ЯТ 20.29," 46071" 

190 PRINT TAB 29, "0+0" 

200 NEXT J 


"HORIZONTAL SCROLL DEMONSTRATION" 
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There are 2 slight problems with this technique: 

1) Where there is no character corresponding to a particular 
machine code instruction (e.g., LD D, (HL) - Hex 56 and LD (HL), D - 
Hex 72), it is obviously not possible to type a character. Therefore you 
should type ANY character (I have used a question mark) and then 
POKE the required DECIMAL value into place (see lines 2 and 3). 

2) Acertain amount of 'keyboard manipulation' is required in order 
to type some characters (particularly keywords). In this example, the 
Inverse J and the graphics character should be typed by changing the 
cursor to a 'G,' using the Graphics key, and RND and COS by chang- 
ing the cursor to an 'F' (Function key). 

RUN, RETURN and GOSUB, however, are keywords, and the 
Timex 1000's automatic syntax check does not permit the cursor to be 
changed manually to a ‘K’. . . or does it? In fact it is very easy to change 
the cursor to a ‘K’: just enter ‘THEN’ (shift 3), and there it is! Now enter 
the required keyword and then delete THEN using the normal cursor 
controls and the delete key. 

IMPORTANT: The only space to be typed is shown in the listing by 
the left arrow symbol (—); all the other APPARENT spaces will appear 
automatically as you enter the keywords. 

Lines 160 calls the machine code routine; the word RAND is used 
merely to make the line syntactically correct. (Remember that USR is a 
Function, not a Keyword.) This use of RAND is a common ‘shorthand’ 
device, but it should not be used indiscriminately, particularly if a pro- 
gram relies elsewhere on the RND function producing a truely random 
number. If in doubt, use the ‘correct’ syntax of a USR statement: 'LET 
V 2 USR rn’ (where n is the required machine code address, and V is 
any Basic variable, possibly a dummy). 

Incidentally, if you are wondering what a routine as short as this is 
doing in a book of 16K programs, the answer is that it does NOT detect 
the end of each screen line by testing for the 118 character as in the 
routine in Battleships, but assumes that ALL screen lines contain 
EXACTLY 32 characters. This is always the case with the 16K Timex 
1000, but is NOT normally true when the RAMpack is disconnected. 


Coin Analysis 


If you have never worked with payrolls, then the function of this pro- 
gram may not be immediately obvious. Clearly a wages department 
needs to know the total amount payable to employees in order that the 
correct amount of money may be drawn from the bank. However, they 
ALSO need to know the exact breakdown of this total into nickels, 
dimes, etc., so that each wage packet may be made up correctly. (Sim- 
ple example: If 2 people are to be paid $5 each, there is no point in 
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COIN AHALTEIS 


FAST 
DIM Н%(З,62 
DIM Bess 
DIM Crea 
LET AS¢19="THENTY" 
LET A${2)="TEN" 
LET H$«35z"FIVE" 
LET Af$i43="QNE" 
LET R$co5-"58 P" 
LET RH$ceoz"18 P" 
LET H$C?o-z"S p" 
LET AS(so="2 FP" 
LET Бесз-т p" 
LET Есіо-ги 

LET Ес2отій 

LET Бі32-5 

LET Eidi=i 

LET Bess=.5 


LET Есбот.1 
LET Eiri=. fs 


LET Е(82-.02 

LET Ec35-z.ü1 

LET Т-й 

LET H=1 

ELS 

PRINT RT &.8;"COIM ANALYSIS"; AT z.8;"EHTER HET AMOUNT: 
+PAYSLIP HO0.";H;HT 4,0285 OF "^X^ TO FINISH >" 

INPUT FE 

IF Р+="" THEN GOTO z7? 

IF P#="8" THEN GOTO 14888 

LET =ü 

FOR J=1 TO LEN РФ 

IF P$CJOo«2"., "^ THEM GOTO 3568 

LET s=#+1 

IF Ki OR LEN FS¢J TO 253 THEN GOTO 276 

GOTO 378 

IF РЕСТОС"Ы" OR Ре 222,9" THEM GOTO. 278 

HENT J 

LET F=YAL F$ 

LET H=H+1 

BET T+ 

FOR J=i TO 3 

LET F=F+iE-S 

LET *-IHT £PAÁ/BZ JI?» 

LET Р-Р-мчЖЕСТ 

LET C&I5zCz Tate 

IF ABS Р<1Е-4 THEW EET 1-9 

HEART J 
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drawing a $10 bill from the bank.) This process is traditionally known as 
COIN analysis; | don't know why, as it obviously involves dollars as well 
as coins. 

The program handles the following denominations of U.S. curren- 
Cy: $50, $20, $10, $5, $1, 25€, 10€, 5€, 1€. (You may, or course, extend 
the range of the program to include higher denominations, or less- 
frequently used denominations, such as $2 or 50€.) 


NOTES 


There is a world of difference between a program which is crash-proof, 
idiot-proof, and a pleasure to use, and one which merely ‘works.’ Most 
of this program is concerned with such ‘mundane’ matters as input 
verification, screen formatting, ‘user friendliness,’ etc. The actual 
calculation is contained entirely in the loop from line 410 to 470! 


THE CALCULATION 


The principle of coin analysis is to divide each individual net pay figure 
by the highest denomination of 'coin,' divide the remainder by the next 
highest, and so on until there is no remainder: a repetitive process of 
simple mathematics, and therefore an ideal task for a computer. Unfor- 
tunately, the one thing computers are not particularly good at is 'sim- 
ple' mathematics, and this leads to a slight complication, as we shall 
see. 

The 3 arrays used are A$ (coin names), B (coin values) and C (re- 
quired quantity of each coin). In theory, all that the program need do is 
divide the net pay (P) by $50 (B(1)), store the result in C(1), calculate the 
remainder, and continue for each element of the array. In practice, 
however, both subtraction and division are likely to cause errors due to 
the way in which the computer stores numbers in 'floating point' binary 
format. 

The Timex 1000 stores numbers accurately to 9 digits only, so any 
calculation is likely to produce a result which is inaccurate to the final 
decimal place. Of course, the level of inaccuracy is very small, and it 
would not be significant in this program, EXCEPT for the presence of 
the INT function in line 430. The use of INT will magnify ‘insignificant’ 
errors tremendously. For example, 4.9999999 is a very close approx- 
imation to 5, but INT 4.9999999 is still 4! The way around this problem 
is to DELIBERATELY introduce an inaccuracy into the calculation 
which is larger than any inaccuracy the computer may introduce, but 
smaller than the level of accuracy required by the program (which of 
course is to 2 decimal places of a dollar. Hence in line 420, the addition 
of 1E-5 (.00001) will ensure that P is always fractionally higher than the 
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COIN ANALYSIS (Continued) 
488 PRINT RT 6,11;"ece—-———---":RT &.8"LRST ENTRY: "FS 
438 GOTO 268 
зай IF VAL Р%Ф<>0 THEN GOTO 530 
510 LET Р+#=" +0. ua" 
528 GOTO 598 
538 IF F$c1854£2"e" THEN GOTO 560 
S40 LET Р+="="+Р+‹ TO 35 
558 GOTO S538 
568 IF Р%/93- ="_" THEN LET РФ-Р%(2 TO уни" 
578 IF Р%<82< yi, " THEN LET F$=Ffi4 TO оғ" ий" 
588 IF VAL 294 “THEN LET F£$i75»z"üg" 
сәй PRINT FF 
6646 RETURN 
1864 CLS 
1010 FOR J=i TO 3 
ага DIM Pec1ies 
1936 PRINT TAB ¢S-LEN STE$ C«J»5;CzJo;"exe";ntitclo;"ec"; 
1646 LET P$-STE$ CCC JO#EE II) 
1856 GOSUE 585 
1068 НЕХТ J 
1676 PRINT AT 11.7: "ТОТА ez"; 
1986 LET F$-STE$ Т 
1436 GOSUE 50G 
1166 PRINT AT 13.6; "HO. OF PAYSLIPS=";TAE Z&-LEH STRE £H-13;H-1 
1118 CLEAR 
1126 SLOW 
1138 PRINT AT 26.6; "C= COPY : F= FIHISH : Е= FE-FUH" 
1146 IF INKEY$="R" THEH FUH 
1156 IF IHKE'"$-"F" THEN GOTO 333: 
1166 IF ІНКЕТЖСОЗС" THEH GoTo 11 
1176 PRINT RT 2а, а; "+ : 
1186 СОРТ 
GOTO 1136 
SAVE “COIN ANALYSIS" 
RUN 
STOP 
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‘true’ value. Small positive inaccuracies introduced by line 430 would 
not make any difference anyway, but small negative inaccuracies will 
be nullified. 

The inevitable outcome of the computer introducing errors on one 
hand, and the program introducing errors on the other, is that P is never 
likely to be reduced to exactly zero. Remember that P is always the re- 
mainder left after the previous division, and that the calculation is com- 
plete when P = Q. This is not terribly important, as there are only 9 divi- 
sions to be performed anyway (for the 9 elements of array B), and any 
small residual value of P can be disregarded. However, the test in line 
460 saves time by determining whether P has reached a value less 
than 1E-4 (i.e., VIRTUALLY zero, allowing for all accumulated errors so 
far). 


INPUT VERIFICATION 


All the programs in this book have featured some sort of input check. 
This one is only slightly more elaborate than the standard routine, as it 
ensures that only valid cash amounts are accepted. Lines 270, 280, 
310, 360 and 370 should be very familiar to you by now; they check that 
the input is entirely numeric. Line 320 detects the presence of a 
decimal point, and line 340 rejects entries where the point is followed 
by more than 2 figures. Variable X (lines 300 and 330) COUNTS the 
number of decimal points, to ensure that the entry contains no more 
than 1. 


SCREEN FORMATTING 


This is actually the longest part of the program, and occupies line 1000 
onwards, and also subroutine 500. The final ‘table’ of results is laid out 
in 3 columns, the central one being predefined as the names of the 
various ‘coins’ (held in array A$). Column 1 (quantity of each coin: C(J)) 
and column 3 (value: C(J)*B(J)) may both contain figures of differing 
lengths, and so must be aligned correctly. Column 1 is a simple tabula- 
tion (see line 1030), but aligning cash figures is a little more complex. 
The method І have used here is to define a standard string format 
for all cash figures, and then to convert each figure to this format in turn 
for printing. | have also exploited a useful Timex 1000 feature: re- 
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dimensioning an array simply erases the old array from memory. 
Hence line 1020 sets up a format string of 10 characters for each cash 
figure. The ultimate format will have a decimal point in the eighth ele- 
ment of P$, cents in elements 9 and 10, and up to 7 elements for dollars. 
(This SHOULD be sufficient; somehow | cannot envisage companies 
with a wage-bill of over 10 million dollars using a Timex 1000 for their 
payroll! 

All this is handled by subroutine 500. Lines 530—550 ‘left fill’ the ar- 
ray with blanks, shifting the actual cash value to the right. Lines 
560—570 then 'right-fill' with zeros if necessary to align the decimal 
points. Lines 510—520 are not strictly necessary, but avoid all this string 
manipulation just to print a zero value. Line 580 is required because of 
a Timex 1000 quirk: it will print .1 as '0.1,' but .01 as '.01' (without a 
zero before the point. 


USER FRIENDLINESS 


This is a horrible expression which usually means the addition of 
various messages and instructions which most users will find 
thoroughly obnoxious. True user friendliness, however, involves ease 
of operation of a program, anticipation of every problem which the user 
is likely to encounter and the provision of appropriate assistance when 
these problems occur. 

In this program, the instructions, such as they are, are kept brief 
and to the point. The current payslip number is displayed on the 
screen, together with the 'Or X to finish' message. (A lot of programs 
tell you INITIALLY how to finish, but fail to remind you of this when you 
acutally need it.) 

The most likely problem the user is likely to experience is that after 
entering several payslips, some distraction will cause him to lose his 
place, so to counteract this, line 480 will display the last amount 
entered. 

The 'end options' at line 1130 are all trivial: the program could 
simply STOP, and the user could RUN or COPY as desired, but it is no 
problem to include these options in the program itself. Just because 
YOU know how to make a copy of the screen, it is wrong to assume that 
everybody who will ever use one of your programs will know how to do 
so. The ideal computer program should require the user to know 
NOTHING about computers! 
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Datafile 


A data file is quite simply a file for storing data! (You can't say you 
haven't learned anything from this book, when it contains gems like 
that.) Address books, note books, diaries, etc. can all be stored on your 
Timex 1000, and numerous DEDICATED programs have been written 
to provide precisely the right kind of data file for a particular applica- 
tion. This program attempts the impossible in that it is intended as a 
GENERAL data file, suitable for any purpose whatever. 

In deciding what features to include in a general purpose data file, 
and more importantly, what to leave out, | have adopted the following 
criteria: 

1) The maximum possible amount of memory space should be 
reserved for data, and 

2) both records and fields (see below) should be as flexible as 
possible in quantity and length. 

The principle exclusions are: 

1) There are no 'search' or 'sort' facilities, and 

2) itis not possible either to amend or delete a record once it has 
been entered. 

It is quite possible that you will not agree with these priorities, and 
feel that more ‘file handling’ features should have been included, at the 
expense of total file size. But this is the last program in the book, and 
your job now is to go back over all the programs, changing anything 
you don't like, adding any features you think would be desirable and 
generally adapting everything to your own taste. 


NOTE 


You have probably seen this in every computer book ever written, but it 
is impossible to talk about data files without first defining these three 
terms: 

A FILE is a complete collection of data which is sub-divided into 
RECORDS, which all contain data on a related subject, and which 
themselves are sub-divided into FIELDs, which are the individual items 
of data. 


RUNNING INSTRUCTIONS 


The basic premise of this program was that the 16K Timex 1000 should 
hold at least 12K of data, so everything else has taken second place to 
this (with user friendliness coming a poor third!). There is a menu which 
lists the 9 options available, but a few notes on what to do from there 
would not be amiss: 
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DRTRFILE 
M E$i32) 
ET H-ü 
ET P-H 
ET R-iz58ü8 
IM AFERO 
(5 
RIHT "FILEHRME 7" 
HPUT FF 
ET F$-F$*"." 


CLS 
РЕІНТ TAB (28-ДЕН FÉES FE TO LEM Ff£-12;HT F 


BS 


Em, 


"1: DIRECTORY"; AT 5S,;"2: ALD RECORD": AT 11, 8; 


Ше sol FECORLU:AT i3.8;:"4: SAVE 

LET If=IHKEYS 

IF 1421" OR ЕЗІП THEH GOTO 118 
CES 
GOTO WAL Іжжіліін 

IF HOT Н THEM GOTO 144 

LET &=i 

FüR J=1 TO H 

GOSUE 4588 

PRIMI I; : TAB Ss 

PRIHT Biene 2 TO Gtk? 


IF I^z8-IHT ¢J“2e> THEN GOSUE 1304 
IF I$-"I" THEH GOTO 3644 


B HEST J 
& GOSUB 1566 


IF I$-"I" THEH GOTO shee 

GOTO 38 

РЕІНТ НТ 21.8; "С=СОНТІНЦЕ : IZIHSFECT" 
LET I$=IHEETE 

Te ТЕЕ RMD ies THEN DOTO тета 


34 CLS 


& КЕТПЕН 
B LET H=H+i 


РЕІНТ “ELEGI HUMBER". Н 

PRINT "FIELD І-КЕУ : MAK 28 FIELDS" 
LET G=F+1 

LET Р=Р+2 

FOR 1-і TO 26 

FRIHT AT JI*-1.8;E£f 

РЕІНТ НТ 1%1.8;1 

IHPUT T£ 

IF T#="" THEM GOTO 2138 

IF Jaa OF ТҰРА" THEM GOTO 2200 


B СЕТ JaJst 
E PRINT AT Jed EES 


PRINT EF 
LET F-F-T-1 


ap GOTO 2115 


2285 1 


LET T-LEH T$ 
IF Теге THEM GOTO 236a 
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1: DIRECTORY 


Like the 'Contents' page of a book, this lists each of the records in the 
file by their number and KEY FIE! D. The first field of each record is 
assumed to be the title or identifying field or, to continue the book 
analogy, the 'chapter heading,' and this is referred to as the key field. 
Obviously when you first run the program, there will be no records in 
the file, so option 1 will have no effect. However, once records have 
been entered, the directory becomes of great importance, particularly 
in the absence of any 'search' facilities. 

The records are listed in batches of 20. At the end of each 'page' of 
the directory, there is the option to Continue or Inspect, Key ‘C’ will con- 
tinue to the next paae. if there is one. or otherwise return to the menu. 
Key 4” will immediately jump to option З (see below). 


2: ADD RECORD 


The screen display will inform you of the record number (the computer 
will allocate the next unused number), and will also present the 
message: "Field 1 = Kev: Max 20 Fields." This is a reminder that field 
1should contain some identifying feature, as it is this field which will be 
used for the directory entry. ‘‘Max 20 fields" means that you may enter 
any number of fields in a record, up to a maximum of 20. 

What the display doesn't tell you is that: 

1) each field may contain any number of characters up to a max- 
imum of 27, 

2) you should terminate this record entrv (if vou use less than 20 
fields) by entering “Ғ,” and 

3) you may delete a previous field entry by entering “Х” (although 
you are NOT allowed to delete the KEY FIELD entry.) 

(The maximums specified here are to allow each record to be 
displayed as a single-screen paae.) 


3: INSPECT RECORD 


This requests the number of the record you wish to inspect. Of course, 
you have forgotten the number, so should press “0” to return to the 
menu and then choose option 1 to refer to the directory. 

Having entered a record number, the entire record will be 
displayed. Any key will then return vou to the menu. 


4: SAVE 


Selecting option 4 will immediatelv start the SAVE procedure, so make 
sure that the tape recorder is running first! Saving 12K of data takes a 
LONG TIME, so don't try to fit this onto 1 side of a C2 cassette. 
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DATAFILE (Continued) 


PRIHT AT I«1.8;"FIELI! LENGTH EXCEEDED" 
FOR К-і TO 58 

НЕФТ K 

GOTO 2115 

IF T#="F" THEN GOTO 2560 

IF F«T«1»-R THEN GOTO 6688 

(ЕТ R$CP*1 TO PtT+19=TS+ "ek" 


а LET Р=Р+Т+1 


PRINT RT J41,3;T$ 
НЕХТ J 

LET H=INT (Һ<Р-02/2562 
LET і-(Р-й02-256Ж%Н 


р LET АСО TO G4+19=CHRE H*CHE$ L 


GOTO 36 
IF NOT М THEN СОТО іва 
PRINT AT &,8;"RECORD HUMBER 2" 


à INPUT K 


IF K>N THEN GOTO 3616 
IF K=@ THEN GOTO 36 
PRINT AT &,14:K 

LET @=1 

FOR J=1 TO K 

GOSUB 4588 


B NEXT J 


LET L=G+1+CODE A$(G+19+2568CODE AFCO) 
FOR J=1 TO 26 

PRINT J. TAB 3; 

GUSUB 5668 

IF Q@+K>=L THEN GOTO 3148 

PRINT A$. G@+2e¢J=19 TO G-K2 

LET Q=Q+K+2 

MEAT J 

IF 1<-2й THEM PRINT RT J.8;E£t 

PRINT AT 21,0; "PRESS ANY KEY FOR МЕНИ" 
IF INKEY#="" THEN GOTO 3156 

GOTO эй 

SAVE FS 

GOTO эй 

IF J=i THEN RETURN 

LET G-Q*i1-CODE AS{O+19+256eC0DE Asc tts 
RETURH 


B FOR K=1 TO 28 


IF Н%<0“Ко-"Ж" THEM GOTO ZüazS 
MENT К 

LET K=K-1 

RETLIRH 

PRINT RT zi,8;"FILE FULL: RECORD IGHORED" 
FOR K=1 TO St 

HEST K 

LET H=N-1 

GOTO Эй 

CLEAR 

SAVE "DATAFILE" 

RUH 
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The data is saved under the name vou entered in response to the 
very first question “Filename 2”, FOLLOWED BY A FULL STOP. (The 
reason for this is that the last character of F$ is inverted by the Timex 
1000's SAVE routine, preventing it being used later as a heading.) 
Subsequent LOADing of this file will result in the menu being displayed 
and records can be added or inspected as before. 


NOTES 


The heart of the program is the ‘file,’ contained in the 12500 element 
A$. This is a SINGLE-dimension array, so any record and field 
delineators must be embedded into the records and fields themselves. 
Tne program illustrates 2 methods for doing this: the end of each field 
is marked by the inverse asterisk character (line 2310), and the 
LENGTH ої each entire record is stored as a 2-byte hex number, in the 
first 2 bytes of the particular record, 

The reason for this second method is that, whereas all fields in a 
record are stored consecutively in the array and displayed con- 
secutively by option 3, the key fields, as displayed by option 1, are not 
stored consecutively. Therefore, by using the first 2 bytes of a record as 
a POINTER to the next record, the computer is able to locate the next 
key field without having to search through every element of the array. 

In order to make this pointer technique easier to understand, at 
least to those of you who are familiar with hex numbers in any other 
context, | have used variables H and L to represent the High and Low 
bytes of the pointer (see lines 2500-2520. Note that although 
theoretically this system will allow records of any lenath up to 64K 
characters (if the file itself were this large!), the arbitrary restrictions of 
20 fields per record and 27 characters per field, which | have imposed 
merely for screen display purposes, means that in practice no record 
will exceed 540 characters in length. Therefore the High bvte of this 
number is barely used; you might like to impose even tighter reetric- 
tions on the number of fields per record so that the 'length of record' 
pointer may be held as a single byte. 

The value of this pointer can only be calculated AFTER a record 
has been completed. Therefore 2 other pointers, P and Q, are used; Q 
to mark the position (in A$) of the start of the current record (i.e., the 
position in which the H,L pointer is eventuallv going to be placed), and 
P which always points to the position of the current character in the 
array. 
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If you have any difficulty visualizing how this all works, set up a small 
‘test’ data file using option 2, then press BREAK to stop the program, 
and then type PRINT A$. This will fill the screen with the first 704 
characters of the array (it will, of course, give error code 5/0, as A$ is 
12,500 characters long!), and you will be able to see exactly how the 
data has been stored. The first character will probably be a blank, if you 
have used only short records. Look up the CODE of the second 
character, and count that number of characters along the string 
(including the inverse asterisks). You will find that you have reached 
the position of the FIRST character (probably a blank again) of record 
number 2! Once again, look up the CODE of the next character, count 
that number of characters, and you will reach record number 3. 

You can also use this test technique to examine what happens when 
you delete 1 or more fields of data (by entering X during option 2). Set 
up a test file of only 1 record, but as you are entering the fields of that 
record, enter a very long (27-character) field, enter X in response to the 
next field prompt, then enter F, which will terminate data entry and 
return to the menu. Examine A$ as before: The 'deleted' entry will still 
be there, but the POINTER will still point to the end of the 'true' data. In 
other words, although this ‘garbage’ has been entered into the array, it 
is ignored by the pointer, and any further data entries will overwrite it as 
if it were blank. 

In the program, subroutine 4500 'counts' through A$ in much the 
same way as you have just done manually. This subroutine is called by 
option 1 (line 1015) to find EVERY key field, and by option 3 (line 3050) 
to find a specified key field. Q is used as a ‘floating’ pointer, and is reset 
to 1 before each time the subroutine is called. P is a 'fixed' pointer; that 
is, it is not affected by any count through the array. The only time P is 
adjusted is when new records are added (option 2, line 2000). 

Subroutine 5000 performs the simpler 'field length' count, and is 
again called by both options 1 and 3. 
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APPENDIX 1: TAROT CARD DISPLAYS 


Here, to assist you in deciphering the hieroglyphics on pages 76-86, 
and to give you an idea of the intended output of the ‘Tarot’ program, 
are some of the screen displays, copied to the printer. 


XVIII 
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APPENDIX 2: COMPUTERIZED DATING QUESTIONNAIRE 


SEX (M/F) 


Pick the word/phrase from each of the following pairs which most 
accurately describes yourself. 


SHY/EXTROVERT 

FUN LOVING/HUMOURLESS 
INTELLECTUAL/THICK AS TWO SHORT PLANKS 
FASHION CONSCIOUS/DRESS LIKE A TRAMP 
CAREFREE/CAUTIOUS 

SOCIABLE/LONER 


Mark 3 of the following with a check if they are your interests, AND 3 
with a cross if you are definitely NOT interested. 


A POP MUSIC J COMPUTERS 

B CLASSICAL MUSIC K POLITICS (LEFTISH) 
C WATCHING SPORT L POLITICS (RIGHTISH) 
D PLAYING SPORT M POLITICS (GENERAL) 
E CINEMA N TRAVEL 

F THEATRE O ARTS/CRAFTS 

G DISCO P POETRY 

H FOOD (RESTAURANT) Q ANIMALS 

| FOOD (COOKING) R READING 


For official use only 
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NOW AVAILABLE 


All the programs and routines listed in this book will help you get 
more enjoyment from your Timex 1000 than ever. Share the fun with 
your friends and family, and build on the programs to suit your own 
needs. 


Save time and don't risk introducing keyboarding errors into your 
programs. Order the cassette for only $19.95 today! 


The TIMEX SINCLAIR 1000 CASSETTE is available at your 
favorite computer store. Or use the handy order card below. 


THE TIMEX SINCLAIR 1000 CASSETTE 
Yes, I want to make my TS 1000 better than ever. Please send me 
of Valentines TIMEX SINCLAIR CASSETTE at $19.95 each. 
1-88729-3 $19.95 


copies 


— Payment enclosed (including state sales tax). __ Bill me. 
Wiley pays shipping and handling charges. . ВШ my company. 


— Charge to my credit card: __ Visa  . Master Card 


Card Number 1 JL JE YE YE YE JE JE JE YE 1E 1E 1E 1E 1E] 


Expiration date Signature 


Name Title 
Company 
Address 
City State Zip Code 
1-88729-3 263 Signature (Order invalid unless signed) 


We normally ship within ten days. If payment accompanies your order and shipment 
cannot be made within 90 days, payment will be refunded. 


TURN YOUR IMAGINATION LOOSE 
WITH TIMEX SINCLAIR PROGRAMS TODAY 


Buy the cassette at your favorite computer store, or order from 


Wiley: 
In the United States: 
In the United Kingdom 
and Europe: 


In Canada: 


In Australia: 


John Wiley & Sons 
1 Wiley Drive 
Somerset, NJ 08873 


John Wiley & Sons, Ltd. 
Baffins Lane, Chichester 
Sussex PO 19 IUD UNITED KINGDOM 


John Wiley & Sons Canada, Ltd. 
22 Worcester Road 
Rexdale, Ontario M9W 1L1 CANADA 


Jacaranda Wiley, Ltd. 
GPO Box 859 
Brisbane, Queensland AUSTRALIA 


Valentine — TIMEX SINCLAIR 1000 CASSETTE 1-88729-3 


| | | | NO POSTAGE 


NECESSARY 


BUSINESS REPLY CARD 


FIRST CLASS PERMIT NO. 2277, NEW YORK, N.Y. 


POSTAGE WILL BE PAID BY ADDRESSEE 


IF MAILED 
IN THE 
UNITED STATES 


JOHN WILEY & SONS, Inc. 


1 Wiley Drive 
Somerset, N.J. 08873 


Attn: Timex Sinclair 1000 Cassette 


COMPUTERS 


$9.95 


What can І do with my 
Timex 1000, Timex 1500, or ZX81? 


The answer may surprise you. 


Don't let its price fool you. The Timex Sinclair 
may be inexpensive, but it packs a lot of comput- 
ing punch—when it's programmed right. 


Programming your Timex Sinclair to do useful 
work—or to have fun—is easy with this practical, 
step-by-step guide. It contains 56 complete pro- 
grams ready to run on your TS 1000, TS 1500, or 
ZX81—including 35 programs that run on the 1K 
or 2K versions! Programs that are fun, including 
sophisticated games, fortune telling, and gam- 
bling. And programs that are practical—file pro- 
grams, payroll deductions, graphics, a "check- 
book, and many, many others. Each is fully 
documented, tested, and ready to use. 


What if I want to learn to 
program myself? 


Then this book is for you, too. Because these 
programs are designed to teach as well as run. 


Wiley Press paperbacks have taught more 
than two million people to program, use, and 
enjoy microcomputers. Look for them all at 
your favorite bookshop or computer store! 
For a complete list, write to: 


WILEY PRESS 


a division of John Wiley & Sons, Inc. 
605 Third Avenue, New York, N.Y. 10158 
New York • Chichester • Brisbane * Toronto * Singapore 


Cover design: Larry Smith 
Cover photograph: Arnold Katz 


The documentation explains the "how's" and 
"why's" every step of the way, so you can see and 
understand the structure and techniques used in 
each program as you key it in. 


And if I don't have time 
to keypunch my Timex? 


No problem. All 56 programs are available on a 
convenient cassette—ready to run and error- 
free. Buy it at your local computer store, or use 
the order card inside. 


Roger Valentine is co-founder of V & H Com- 
puter Services, a software development firm, 
and is the author of What Can I Do With 1K, What 
Can | Do With 16K, Spectrum Spectacular, and 
Dragon Extravaganza. His articles and programs 
have appeared in Practical Computing, Personal 
Computing Today, and other popular computer 
journals. 


ISBN 0 471-88730-7 


